vb 程序检测按键

不需要添加任何的控件,不需要修改代码,复制下运行,看看结果!
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
msgbox "您按了上键!"
ElseIf KeyCode = vbKeyDown Then
msgbox "您按了下键!"
ElseIf KeyCode = vbKeyLeft Then
msgbox "您按了左键!"
ElseIf KeyCode = vbKeyRight Then
msgbox "您按了右键!"
End If
End Sub

依此类推,你还可以设置为其他键了!
下面给你提供VB中的各个按键常量!

Keycode 常数

可在代码中的任何地方用下列常数代替实际值：

常数 值 描述
vbKeyLButton 0x1 鼠标左键
vbKeyRButton 0x2 鼠标右键
vbKeyCancel 0x3 CANCEL 键
vbKeyMButton 0x4 鼠标中键
vbKeyBack 0x8 BACKSPACE 键
vbKeyTab 0x9 TAB 键
vbKeyClear 0xC CLEAR 键
vbKeyReturn 0xD ENTER 键
vbKeyShift 0x10 SHIFT 键
vbKeyControl 0x11 CTRL 键
vbKeyMenu 0x12 MENU 键
vbKeyPause 0x13 PAUSE 键
vbKeyCapital 0x14 CAPS LOCK 键
vbKeyEscape 0x1B ESC 键
vbKeySpace 0x20 SPACEBAR 键
vbKeyPageUp 0x21