说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何检测左右键同时按下?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何检测左右键同时按下?

在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








备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘