速度超快的列表框全选/取消全选方法，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

复制代码

wang1950317 · 发表于 2010-8-3 23:04:31

学习！谢谢分享！

tmtony · 发表于 2010-8-3 23:25:27

呵呵，经你这么一说，非抄下不可

zhuyiwen · 发表于 2010-8-4 08:01:24

确实！

xuwenning · 发表于 2010-8-4 08:48:37

谢谢分享
收了

lovehere · 发表于 2010-8-4 09:09:27

抄收了，以备以后盗用

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

这个感兴趣，哈。

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

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

学习！谢谢分享

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

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

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

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

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

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

主题相关群

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

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

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