Private Sub CMDO010_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Txt020.SetFocus
Case vbKeyRight
CMDO020.SetFocus
End Select
End Sub
Ascll码 VB中的键码常数 键码值 描述 ------------------------------------------------------------------- vbKeyLButton 1 鼠标左键 ------------------------------------------------------------------- vbKeyRButton 2 鼠标右键 ------------------------------------------------------------------- vbKeyCancel 3 CANCEL 键 ------------------------------------------------------------------- vbKeyMButton 4 鼠标中键 ------------------------------------------------------------------- vbKeyBack 8 Backspace 键 ------------------------------------------------------------------- vbKeyTab 9 TAB 键 ------------------------------------------------------------------- vbKeyClear 12 CLEAR 键 ------------------------------------------------------------------- vbKeyReturn 13 Enter 键 ------------------------------------------------------------------- vbKeyShift 16 Shift 键 ------------------------------------------------------------------- vbKeyConterol 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 INSERT 键 ------------------------------------------------------------------- vbKeyDelete 46 DELETE 键 ------------------------------------------------------------------- vbKeyHelp 47 HELP 键 ------------------------------------------------------------------- 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 键 ------------------------------------------------------------------- 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 键 ------------------------------------------------------------------- vbKeyNum0 96 0 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum1 97 1 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum2 98 2 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum3 99 3 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum4 100 4 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum5 101 5 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum6 102 6 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum7 103 7 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum8 104 8 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyNum9 105 9 键 (在数字小键盘上) ------------------------------------------------------------------- vbKeyMultiply 106 乘号(*) 键 ------------------------------------------------------------------- vbKeyAdd 107 加号(+) 键 ------------------------------------------------------------------- vbKeySeparator 108 Enter键(在数字小键盘上) ------------------------------------------------------------------- vbKeySubtract 109 减号(-) 键 ------------------------------------------------------------------- vbKeyDecimal 110 小数点(.) 键 ------------------------------------------------------------------- vbKeyDivide 111 除号(/) 键 ------------------------------------------------------------------- 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 键 ------------------------------------------------------------------- vbKeyNumlock 144 NUM LOCK 键 ------------------------------------------------------------------- shift as integer是便是shift为整型参数 shift是个整型参数，指示在按下一个键时，是否同时按下了Shift、Ctrl、Alt键，参数为1时，表示按下Shift;参数为2时，表示按下Ctrl; 参数为4时，表示按下Alt;参数为0时，表示均未被按下;当三个键有不只一个键被按下，则Shift参数是被按下键相应数值之和。