VB判断键盘输入

VB判断键盘输入


下图表示的是键盘各按键的KeyCode值：






到这里，我们在KeyDown或KeyUp等事件的代码里用
If KeyCode="20" Then ^^^^^^^^
或 If KeyCode=20 Then ^^^^^^^^
语句就可以判断键盘输入了。
VB中还有一些特殊按键：
Private Sub Form_KeyDown(KeyCode As Integer,ShIft As Integer)
If KeyCode=vbKeyLeft Then ^^^^^^^^
If KeyCode=vbKeyRight Then ^^^^^^^
If KeyCode=vbKeyDown Then ^^^^^^^
If KeyCode=vbKeyUp Then ^^^^^^^
If KeyCode=vbKeySpace Then ^^^^^^^
If KeyCode=vbKeyEscape Then ^^^^^^^
If KeyCode=vbKeyTab Then ^^^^^^^
If KeyCode = vbKeyNumlock Then ^^^^^^^
If KeyCode = vbKeyFn Then ^^^^^^^
If KeyCode = vbKeyPause Then ^^^^^^^
If KeyCode = vbKeyPageDown Then ^^^^^^^
If KeyCode = vbKeyPageUp Then ^^^^^^^
If KeyCode = vbKeyDelete Then ^^^^^^^
If KeyCode = vbKeyInsert Then ^^^^^^^
If KeyCode = vbKeyHome Then ^^^^^^^
If KeyCode = vbKeyEnd Then ^^^^^^^
If KeyCode = vbKeyShift Then ^^^^^^^
If KeyCode = vbKeyControl Then ^^^^^^^
End Sub