你可以用ASIIC码来判断它了值是多少,如果等于这个值,你可以用ASC这个函数来找到这个值是多少.

解决方案 »

  1.   

    在KeyDown事件里面
    vbKeyLeft\vbKeyRight\vbKeyUp\vbKeyDown
      

  2.   

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
        Case vbKeyUp
        Case vbKeyDown
        Case vbKeyLeft
        Case vbKeyRight
        Case Else
        End Select
    End Sub
      

  3.   

    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
       Select Case KeyCode
          Case vbKeyUp
             MsgBox "UP"
          Case vbKeyDown
             MsgBox "down"
          Case vbKeyLeft
             MsgBox "Left"
          Case vbKeyRight
             MsgBox "Right"
       End Select
    End Sub