如何判断单击的是鼠标左键还是右键？

Question

在一个没有Button参数的事件里，如何判断单击的是鼠标左键还是右键？
如我要在Command1的单击事件中判断是左键单击还是右键单击。

Answer 1

在MOUSE_DOWN事件中（或者MOUSE_UP或者MOUSE_MOVE事件）判断BUTTON的值就可以知道了，1为左键2为右键

Answer 2

定义一个模块变量，同时在你单击的那个控件的MOUSE_DOWN事件中给那个变量赋值．就可以知道了．

Answer 3

感谢楼上两位，问题是该控件所有事件都没有Button参数的，是自己写的控件，没有mouse_move等事件。

Answer 4

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub timer1_timer()
    '无论你点哪  都提示 不光是窗体上
    x = GetAsyncKeyState(1) '获得左键状态
    If x = -32767 Then MsgBox "单击了左键"
    x = GetAsyncKeyState(2) '获得左键状态
    If x = -32767 Then MsgBox "单击了右键"End Sub

Answer 5

很简单，在没有BUTTON 的参数里的事件中，一般捕获不到鼠标的右键，如单击了这个控年且能执行这个事件地代码就是单击了左键。