Tab key press

[manzoor]

How can i detect TAB key hit?

thanks

[MarkT]

Will this do anything for you?

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_TAB = &H9
 
Private Sub Form_Load()
    Timer1.Interval = 50
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    If GetAsyncKeyState(VK_TAB) <> 0 Then
        MsgBox "Tab pressed"
    End If
End Sub

[DaoK]

Do you want to make something with a textbox ? Like when you press Tab it do not switch to an other control but just make space in the textbox?

[manzoor]

Originally posted by MarkT
Will this do anything for you?

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_TAB = &H9
 
Private Sub Form_Load()
    Timer1.Interval = 50
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    If GetAsyncKeyState(VK_TAB) <> 0 Then
        MsgBox "Tab pressed"
    End If
End Sub

Thanks MarkT, it works for me !