速度超快的列表框全选/取消全选方法，10万行1秒内！

红尘如烟 · 发表于 2010-8-3 22:43:29

反正吹牛也不用上税，哥也当回标题党(^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

复制代码

Alashome · 发表于 2015-9-19 16:01:24

good

purplerose · 发表于 2015-7-26 20:30:10

试了就知道了，吹牛要交站长税的，呵呵

好运牛 · 发表于 2015-7-5 17:55:49

试试，学学

zpy2 · 发表于 2014-10-5 05:58:43

谢了

sunwrsun · 发表于 2014-10-1 20:14:37

看看

loginwjd303 · 发表于 2010-8-8 01:05:37

谢谢！大师

红尘如烟 · 发表于 2010-8-7 23:36:57

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

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

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

zhao__feng · 发表于 2010-8-7 22:12:13

学习！谢谢分享

xuwenning · 发表于 2010-8-7 20:41:33

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

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

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

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

Next

goto2008 · 发表于 2010-8-7 16:11:30

这个感兴趣，哈。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 速度超快的列表框全选/取消全选方法，10万行1秒内！

群介绍
主题无相 (随机显示版	同地区群块其他地区)