要想每条定位都看见 for i=1 to 10000 ....... '向Listview中加Item数据 ....... '定位Listview的Item
DoEvents '请在这里加入doevents
next i
为什么要向Listview添加这么多条记录,这样的程序本身就是病
1、刷新 for i=1 to 100 ....... '向Listview中加Item数据 ....... '定位Listview的Item Me.ListView1.Refresh '刷新ListView控件,以实时显示 next i 2、如果你放在ListView中的数据是来自于数据库并且使用的是数据绑定的话,在卸载时ListView控件会刷新数据库,这会花大量的时间;而且系统对ListView控件中的Items是按图形处理的,这也会影响到速度。所有这些操作都是跟内存有关的,如果你的内存太小,卸载很慢是理所当然的了。 希望能让你满意。
再unload form"-------------------这样也不行。“你试一下Listview.listitems(100).EnsureVisible=true ”---------出现空白闪烁
要是不用把所有的记录都列出来的话,还是不要放这么多到控件里去。给个限定条件,比如查询有某个变量的所有记录,在添加进所需记录。一般不会有人要一口气看10000个记录吧!!如果仅仅用来做放记录的容器那还是选择其他的比如放到recordset里呀,等等!!
for i=1 to 10000
.......
'向Listview中加Item数据
.......
'定位Listview的Item
DoEvents
'请在这里加入doevents
next i
for i=1 to 100
.......
'向Listview中加Item数据
.......
'定位Listview的Item
Me.ListView1.Refresh '刷新ListView控件,以实时显示
next i
2、如果你放在ListView中的数据是来自于数据库并且使用的是数据绑定的话,在卸载时ListView控件会刷新数据库,这会花大量的时间;而且系统对ListView控件中的Items是按图形处理的,这也会影响到速度。所有这些操作都是跟内存有关的,如果你的内存太小,卸载很慢是理所当然的了。
希望能让你满意。