in form property page you set keyprivew : true; in form's keyup write code if you dont know the code value you can in event write msgbox keycode
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 37 '向左 Case 38 '向上 Case 39 '向右 Case 40 '向下 End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) debug.? chr(KeyAscii) End Sub
来晚了!也可以这样: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft'向左 Case vbKeyUp '向上 Case vbKeyRight'向右 Case vbKeyDown '向下 End Select
in form's keyup write code
if you dont know the code value you can in event write msgbox keycode
Select Case KeyCode
Case 37 '向左
Case 38 '向上
Case 39 '向右
Case 40 '向下
End Select
End Sub
debug.? chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft'向左
Case vbKeyUp '向上
Case vbKeyRight'向右
Case vbKeyDown '向下
End Select
使用keydown keypress这样的事件扑捉键盘操作就可以了。楼上的已经说的很清楚了~