Question

vb中如何获得键盘方向键的键值

比如说，我要按下左方向键，然后显示1，按下右方向键，显示2，按下上方向键，显示3，按下下方向键，显示4，怎么操作
vwxyzq仁兄的答案不行啊

Answer 1

将窗体KeyPreview属性设置为True并对Form_KeyDown事件编程，可以获取键盘箭头键的键值。实现方法如下：

Option Explicit

Private Sub Form_Load()
    '允许窗体拦截键盘按键
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ' KeyCode 键盘码是键盘上每个按键的唯一编码
    ' 在VB中，符号常数表示键盘码，例如 vbKeyF1 表示F1键,
    ' vbKeyHome 表示HOME键…… 
    Select Case KeyCode
        Case vbKeyLeft:     Print "左箭头键值：" + CStr(KeyCode)
        Case vbKeyRight:    Print "右箭头键值：" + CStr(KeyCode)
        Case vbKeyUp:       Print "上箭头键值：" + CStr(KeyCode)
        Case vbKeyDown:     Print "下箭头键值：" + CStr(KeyCode)
    End Select
End Sub

Answer 2

ASCII键码

Answer 3

dim x as integer
if x=vbkeyleft then print 1
elseif x=vbkeyright then
print 2
elseif x=vbkeyup then
print 3
elseif x=vbkeydown then
print4
end if

Answer 4

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft: Print 1
Case vbKeyRight: Print 2
Case vbKeyUp: Print 3
Case vbKeyDown: Print 4
End Select
End Sub