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

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

可 以 使 用 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>