VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何检测左右键同时按下
发表评论(0)作者:, 平台:, 阅读:10010, 日期:2000-03-12


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





在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