您的位置：程序门 -> vb -> 基础类

listbox的bug

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

listbox的bug[已结贴,结贴人:ldq]

发表于：2007-06-15 09:16:07 楼主

private sub command1_click（)
dim data as string
dim filenum as long
on error goto err1
commondialog1.showopen
commondialog1.filter = "*.* ¦*.txt "
open commondialog1.filename for input as #1
list1.refresh
do while not eof（1)
line input #1, data
list1.additem data
loop
close #1
err1:
'msgbox "打开文件错误 "
exit sub
end sub

private sub command2_click（)
dim i as long
f = trim（inputbox（ "请输入要找的数据 "))
for i = 0 to list1.listcount - 1
if strcomp（list1.list（i), f) = 0 then
list1.listindex = i
exit for
end if
next i

end sub
当数据载入到6万多行时,list1.listcount没返回值了,谁帮试下是什么问题

发表于：2007-06-15 10:34:431楼得分:3

这个不算bug啊
list1.listcount，还有滚动条的max，都有最大限制，65535
数据量大就不要用这个了，
执行六万多次additem，用户会等得头发都白了

发表于：2007-06-15 16:34:332楼得分:0

我用5w试了下也不行哦,郁闷

发表于：2007-06-16 00:15:133楼得分:0

不是65535就是32767呗，反正不能很大就是了:)

发表于：2007-06-16 10:12:414楼得分:2

property listcount as integer
这是listbox定义的属性

发表于：2007-06-16 10:15:475楼得分:0

添加这么大的数据
等到花都会谢了哦

下一篇：谁能帮我解析时间串？在线等
上一篇：新买的域名www.dayjs.com何时能被收录

其他资讯