|
Private Sub CMDO010_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp Txt020.SetFocus Case vbKeyRight CMDO020.SetFocus End SelectEnd 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参数是被按下键相应数值之和。
|