click事件
click事件按左键按右键都可以执行任务,如何使其只能按左键才能执行任务?
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