59.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 26 行

如何检测左右键同时按下？

　  在VB中要如何判断鼠标左右键同时按？就像踩地雷游戏中那样。
　  那怕你快手如快枪手杰西，在计算机的侦测下，还是不可能有左右键同时按下的情况，一般所说的两键同按，在计算机的解读，其实是先后按下左右键的意思。所以 Button参数用3（左键+右键）是一个理论上存在，实际很难在使用者操作十发生的状况。So ，试试下面这一段：

Option Explicit
Dim OldButton As Byte
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
　  If Button = 3 Then
　　　  '因为两键同时按下非常人能为，所以 Print "SupperMan"
　　　  '实际上和 BingGo 要执行同一程序才对
　　　  Print "Supper Man"
　  Else
　　　  If OldButton + Button = 3 Then
　　　　　  Print "BingGo"
　　　  End If
　　　  OldButton = Button
　  End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
　  OldButton = 0
End Sub