我使用了API函数,如下:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
但是按方向键根本不能响应keyDown事件,所以不能执行。怎么办呀?
Private Sub flgMember_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(vbKeyUp) <> 0 Or GetAsyncKeyState(vbKeyDown) <> 0 Then
msgbox keyCode
End If
End Sub