Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流)
QQ:18449932
网 址:www.access-cn.com
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