给你代码,自己测试,添加2个标签,就是Label,名称属性默认,运行程序后,按键盘上的键看看
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = "KeyCode=" & KeyCode
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Label2.Caption = "KeyAscii=" & KeyAscii
End Sub
Enter 是ASCII码是13shift没有ASCII码,它只有键码(keycode)是16
enter 13shift是组合键,需在keyUP或keyDown事件中获得keycode你可以在这两个事件中自己进行获得Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode & vbCrLf & Shift
End Sub