有哪位高手能告诉我VB的KeyAscii中的上、下、左、右键是多少，高分求教

Question

vbKeyLeft 37 LEFT ARROW key 
vbKeyUp 38 UP ARROW key 
vbKeyRight 39 RIGHT ARROW key 
vbKeyDown 40 DOWN ARROW key 

Answer 1

不会吧！不过，没关系，我全部告诉你吧！
在VB中有许多常数，如在文本框中只能输入数字：Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii > vbKey0 And KeyAscii < vbKey9 Or KeyAscii = vbKeyBack Then
  Else
  KeyAscii = 0
  End If  
End Sub当用的常数的话非常容易了！
常数 值 描述 
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 PAGE UP 键 
vbKeyPageDown 0x22 PAGE DOWN 键 
vbKeyEnd 0x23 END 键 
vbKeyHome 0x24 HOME 键 
vbKeyLeft 0x25 LEFT ARROW 键 
vbKeyUp 0x26 UP ARROW 键 
vbKeyRight 0x27 RIGHT ARROW 键 
vbKeyDown 0x28 DOWN ARROW 键 
vbKeySelect 0x29 SELECT 键 
vbKeyPrint 0x2A PRINT SCREEN 键 
vbKeyExecute 0x2B EXECUTE 键 
vbKeySnapshot 0x2C SNAPSHOT 键 
vbKeyInsert 0x2D INSERT 键 
vbKeyDelete 0x2E DELETE 键 
vbKeyHelp 0x2F HELP 键 
vbKeyNumlock 0x90 NUM LOCK 键 
A 至 Z 键与 A – Z 字母的 ASCII 码相同：常数 值 描述 
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 键 
0 至 9 键与数字 0 – 9 的 ASCII 码相同：常数 值 描述 
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 键 
下列常数代表数字键盘上的键：常数 值 描述 
vbKeyNumpad0 0x60 0 键 
vbKeyNumpad1 0x61 1 键 
vbKeyNumpad2 0x62 2 键 
vbKeyNumpad3 0x63 3 键 
vbKeyNumpad4 0x64 4 键 
vbKeyNumpad5 0x65 5 键 
vbKeyNumpad6 0x66 6 键 
vbKeyNumpad7 0x67 7 键 
vbKeyNumpad8 0x68 8 键 
vbKeyNumpad9 0x69 9 键 
vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 键 
vbKeyAdd 0x6B PLUS SIGN (+) 键 
vbKeySeparator 0x6C ENTER 键 
vbKeySubtract 0x6D MINUS SIGN (–) 键 
vbKeyDecimal 0x6E DECIMAL POINT (.) 键 
vbKeyDivide 0x6F DIVISION SIGN (/) 键 
下列常数代表功能键：常数 值 描述 
vbKeyF1 0x70 F1 键 
vbKeyF2 0x71 F2 键 
vbKeyF3 0x72 F3 键 
vbKeyF4 0x73 F4 键 
vbKeyF5 0x74 F5 键 
vbKeyF6 0x75 F6 键 
vbKeyF7 0x76 F7 键 
vbKeyF8 0x77 F8 键 
vbKeyF9 0x78 F9 键 
vbKeyF10 0x79 F10 键 
vbKeyF11 0x7A F11 键 
vbKeyF12 0x7B F12 键 
vbKeyF13 0x7C F13 键 
vbKeyF14 0x7D F14 键 
vbKeyF15 0x7E F15 键 
vbKeyF16 0x7F F16 键 

Answer 2

“上、下、左、右”没有Ascii码！
只有键代码应该在KeyDown事件中编写代码

Answer 3

楼上的楼上说得对，你只能在KeyDown事件中用KeyCode接收vbKeyUp，vbKeyDown..............KeyAscii是不能接收上下左右的

Answer 4

Private Sub Text1_KeyPress(KeyAscii As Integer)
  msgbox asc(keyascii) & " is " & str(keyascii)
End Sub

Answer 5

只能在KeyDown事件中用KeyCode接收vbKeyUp，vbKeyDown,vbKeyright，vbKeyleft
看msdn的键码常数

Answer 6

兄弟不是什么键都有acsii，如果你想得到键盘上所有的keycode，就应该在keydown事件上。
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Debug.Print "KeyAscii:" & KeyAscii
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print "keycode:" & KeyCode
End Sub
你就可以看到不同之处了

Answer 7

同意 litsnake1
我就是这么做的