如何判断多个键同时按下.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 15 行

可 以 使 用 GetKeyboardState获 得 所 有 按 键 的 状 态 ， 参 考 ： 
    Private Declare Function GetKeyboardState Lib "user32" _ 
     (pbKeyState As Byte) As Long 
     
     
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
     Dim keys(0 To 255) As Byte 
     GetKeyboardState keys(0) 
     
     If keys(vbKeyA) >= 128 And keys(vbKeyRight) >= 128 Then 
     Print "OK" 
     End If 
    End Sub 
<END>