Command控件可以实现鼠标右键双击事件吗？

Question

Command控件可以双击鼠标左键触发事件，请问可以实现双击右键触发事件吗？如果可以代码应该怎么写呢？？？

Answer 1

你在部件中添加Microsoft Forms 2.0 Object Library,这里有一个按纽可以有双击事件

Answer 2

双击事件的构成是一个Click事件加上一个Mouse_Down事件，这里简单的模拟了一下。Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const OffsetTime = 300 '双击间隔时间
Private mlngClickTime As Long
Private mblnRightDown As Boolean
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        Select Case mblnRightDown
            Case False
                mblnRightDown = True
                mlngClickTime = GetTickCount
            Case True
                If GetTickCount - mlngClickTime <= OffsetTime Then
                    MsgBox "Double Click"
                Else
                    mblnRightDown = True
                    mlngClickTime = GetTickCount
                End If
        End Select
    Else
        mblnRightDown = False
    End If
End Sub

Answer 3

谢谢yunyu97()，问题解决，结贴：）