技巧

热门文章

最新文章

联系方式

Access交流网

电  话：0760-88315075
热  线：0760-88315075

邮  编：528463
咨询QQ：1918333016
营销QQ：4008553990

Email：1918333016@qq.com

网  址：www.access-cn.com

VBA基础

Access列表框快速全选的技巧【最快】

    之前发过列表框全选的方法这类的文章，但是速度上有待提升，如果记录很多的话，全选就显示有点慢了。
    下面的代码能快读全选/取消全选列表框，真的很快！！每秒可读几万十万行，不会有任何延迟

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

发布人:红尘如烟-office中国  
分享到：
点击次数：  更新时间：2013-10-17 15:47:42  【打印此页】  【关闭】
上一条：Access vba中参数前关键字ByRef和ByVal的详细解释  下一条：vba函数的数据类型强制转换


相关文章

热门文章

热门产品