一般在程序中只响应一个按键,若要判断几个健同时按下可以用下面这条函数 Public Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer 实现如下 我预先将我所要扫描的按键的Keycode放在了Integer数组MyKeyCode()中 然后用GetKeyState这条函数扫描这些键是否被按下,并将扫描结果放在Boolean数组KeyPressed()中 For A = 0 To 9 KeyPressed(A) = (GetKeyState(MyKeyCode(A)) < 0) Next A注意,可能是由于键盘的原因,多键按下时有时会有按键冲突,你玩过模拟器的话就会有所体会。
Public Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
实现如下
我预先将我所要扫描的按键的Keycode放在了Integer数组MyKeyCode()中
然后用GetKeyState这条函数扫描这些键是否被按下,并将扫描结果放在Boolean数组KeyPressed()中
For A = 0 To 9
KeyPressed(A) = (GetKeyState(MyKeyCode(A)) < 0)
Next A注意,可能是由于键盘的原因,多键按下时有时会有按键冲突,你玩过模拟器的话就会有所体会。