Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 81 '按键盘q
MsgBox "74000"
Case Else
MsgBox KeyCode
End Select
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 81 '按键盘q
MsgBox "74000"
Case Else
MsgBox KeyCode
End Select
End Sub