VBA基础
Access列表框快速全选的技巧【最快】
2013-10-17 15:47:42
之前发过列表框全选的方法这类的文章，但是速度上有待提升，如果记录很多的话，全选就显示有点慢了。
下面的代码能快读全选/取消全选列表框，真的很快！！每秒可读几万十万行，不会有任何延迟
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