Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 '釋放按鍵常數
'回車鍵例子
Private Sub Command1_Click()
Text1.SetFocus
Call keybd_event(13, 0, 0, 0) '按下
Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0) '釋放
End Sub
鍵碼
常數 值 描述
vbKeyLButton 1 鼠標左鍵
vbKeyRButton 2 鼠標右鍵
vbKeyCancel 3 CANCEL 鍵
vbKeyMButton 4 鼠標中鍵
vbKeyBack 8 BACKSPACE 鍵
vbKeyTab 9 TAB 鍵
vbKeyClear 12 CLEAR 鍵
vbKeyReturn 13 ENTER 鍵
vbKeyShift 16 SHIFT 鍵
vbKeyControl 17 CTRL 鍵
vbKeyMenu 18 菜單鍵
vbKeyPause 19 PAUSE 鍵
vbKeyCapital 20 CAPS LOCK 鍵
vbKeyEscape 27 ESC 鍵
vbKeySpace 32 SPACEBAR 鍵
vbKeyPageUp 33 PAGEUP 鍵
vbKeyPageDown 34 PAGEDOWN 鍵
vbKeyEnd 35 END 鍵
vbKeyHome 36 HOME 鍵
vbKeyLeft 37 LEFT ARROW 鍵
vbKeyUp 38 UP ARROW 鍵
vbKeyRight 39 RIGHT ARROW 鍵
vbKeyDown 40 DOWN ARROW 鍵
vbKeySelect 41 SELECT 鍵
vbKeyPrint 42 PRINT SCREEN 鍵
vbKeyExecute 43 EXECUTE 鍵
vbKeySnapshot 44 SNAP SHOT 鍵
vbKeyInser 45 INS 鍵
vbKeyDelete 46 DEL 鍵
vbKeyHelp 47 HELP 鍵
vbKeyNumlock 144 NUM LOCK 鍵
vbKeyA 65 A 鍵
vbKeyB 66 B 鍵
vbKeyC 67 C 鍵
vbKeyD 68 D 鍵
vbKeyE 69 E 鍵
vbKeyF 70 F 鍵
vbKeyG 71 G 鍵
vbKeyH 72 H 鍵
vbKeyI 73 I 鍵
vbKeyJ 74 J 鍵
vbKeyK 75 K 鍵
vbKeyL 76 L 鍵
vbKeyM 77 M 鍵
vbKeyN 78 N 鍵
vbKeyO 79 O 鍵
vbKeyP 80 P 鍵
vbKeyQ 81 Q 鍵
vbKeyR 82 R 鍵
vbKeyS 83 S 鍵
vbKeyT 84 T 鍵
vbKeyU 85 U 鍵
vbKeyV 86 V 鍵
vbKeyW 87 W 鍵
vbKeyX 88 X 鍵
vbKeyY 89 Y 鍵
vbKeyZ 90 Z 鍵
vbKey0 48 0 鍵
vbKey1 49 1 鍵
vbKey2 50 2 鍵
vbKey3 51 3 鍵
vbKey4 52 4 鍵
vbKey5 53 5 鍵
vbKey6 54 6 鍵
vbKey7 55 7 鍵
vbKey8 56 8 鍵
vbKey9 57 9 鍵
vbKeyF1 112 F1 鍵
vbKeyF2 113 F2 鍵
vbKeyF3 114 F3 鍵
vbKeyF4 115 F4 鍵
vbKeyF5 116 F5 鍵
vbKeyF6 117 F6 鍵
vbKeyF7 118 F7 鍵
vbKeyF8 119 F8 鍵
vbKeyF9 120 F9 鍵
vbKeyF10 121 F10 鍵
vbKeyF11 122 F11 鍵
vbKeyF12 123 F12 鍵
vbKeyF13 124 F13 鍵
vbKeyF14 125 F14 鍵
vbKeyF15 126 F15 鍵
vbKeyF16 127 F16 鍵