Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.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