Office中国论坛/Access中国论坛

标题: 速度超快的列表框全选/取消全选方法，10万行1秒内！ [打印本页]

作者: 红尘如烟 时间: 2010-8-3 22:43
标题: 速度超快的列表框全选/取消全选方法，10万行1秒内！
反正吹牛也不用上税，哥也当回标题党(^o^)
呃，不过确实速度很快，就算几万十万行也没有延迟……

Private Sub 全选_Click()
Me.列表框.SetFocus
Me.列表框.Selected(0)=True ‘如果有列标题则为Selected(1)
DoEvents
SendKeys "^+{END}", True
End Sub
Private Sub 取消全选_Click()
Me.列表框.SetFocus
SendKeys "{F2}", True
End Sub

复制代码

作者: wang1950317 时间: 2010-8-3 23:04
学习！谢谢分享！

作者: tmtony 时间: 2010-8-3 23:25
呵呵，经你这么一说，非抄下不可

作者: zhuyiwen 时间: 2010-8-4 08:01
确实！

作者: xuwenning 时间: 2010-8-4 08:48
谢谢分享
收了

作者: lovehere 时间: 2010-8-4 09:09
抄收了，以备以后盗用

作者: goto2008 时间: 2010-8-7 16:11
这个感兴趣，哈。

作者: xuwenning 时间: 2010-8-7 20:41
今天测试时才发现代码错误
....................
For Each 列表项变量 In Me.列表框.ItemsSelected

Me.列表框.Selected(列表项变量).Selected=False

Next
应该
..........................
For Each 列表项变量 In Me.列表框.ItemsSelected

Me.列表框.Selected(列表项变量)=False

Next

作者: zhao__feng 时间: 2010-8-7 22:12
学习！谢谢分享

作者: 红尘如烟 时间: 2010-8-7 23:36

今天测试时才发现代码错误
....................
For Each 列表项变量 In Me.列表框.ItemsSelected

...
xuwenning 发表于 2010-8-7 20:41

多谢指出错误，晕，记性太差了，经常犯些低级错误

作者: loginwjd303 时间: 2010-8-8 01:05
谢谢！大师

作者: sunwrsun 时间: 2014-10-1 20:14
看看

作者: zpy2 时间: 2014-10-5 05:58
谢了

作者: 好运牛 时间: 2015-7-5 17:55
试试，学学

作者: purplerose 时间: 2015-7-26 20:30
试了就知道了，吹牛要交站长税的，呵呵

作者: Alashome 时间: 2015-9-19 16:01
good

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)