click事件
click事件按左键按右键都可以执行任务,如何使其只能按左键才能执行任务?
2010-12-02 21:44
2010-12-02 21:51
2010-12-02 22:31
程序代码:Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Click()
Debug.Print GetAsyncKeyState(vbKeyLButton), GetAsyncKeyState(vbKeyRButton)
End Sub
2010-12-02 23:02
2010-12-04 15:59