键盘事件！

Question

vb6中在文本框中怎样才能获知用户按下了小键盘旁边的上、下、左、右键，请各位指教，谢谢！

Answer 1

Private Sub TextSL_KeyDown(Key As Integer, Shift As Integer)   Select Case Key  '查看键盘按下的是什么键
      Case 37        '向左方向键      Case 39         '向右方向键      Case 9          'TAB 键
 
      Case 13         'Enter 键
     
   End Select
End Sub
记着keycode 变量要改为key

Answer 2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 80 Then
    Select Case KeyCode
        Case 39
            MsgBox "右，不开了数字键"
        Case 37
            MsgBox "左，不开了数字键"
        Case 38
            MsgBox "上，不开了数字键"
        Case 40
            MsgBox "下，不开了数字键"
    End Select
Else
    Select Case KeyCode
        Case 102
            MsgBox "右，开了数字键"
        Case 100
            MsgBox "左，开了数字键"
        Case 104
            MsgBox "上，开了数字键"
        Case 98
            MsgBox "下，开了数字键"
    End Select
End IfEnd Sub

Answer 3

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