vb 怎么在 点击左键时发生左右键同时按下事件

Question

 vb 怎么在 点击左键时发生左右键同时按下事件

Answer 1

这种事件，可以结合MouseUp事件检测：
也就是，在左或右键按下后，还没有发生对应的MouseUp事件前，又发生了另一个键的MouseDown，这就是你要的双键按下事件

Answer 2

Dim a As Integer, b As Boolean
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    b = True
    If Button = 1 Then
        a = a + 1
    ElseIf Button = 2 Then
        a = a + 2
    End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If b = True Then
        Debug.Print a
        b = False: a = 0
    End If
End Sub