last key pressed - Easy?

[Chris Byrom]

Does anyone know how to detect the last key that was pressed in a LostFocus() event for a button. The button is at the bottom of my form, and I would like for the fist field to receive focus if they pressed the tab key. I read this in a post, but they didn't give the code.

Thanks.

[MidgetsBro]

Why do you need to detect the last key pressed? If you set the Tabindex of the first control to 0, and the last control has the last index, then it will go back to 0.

[Chris Byrom]

The form actually has tabs on it. So the two controls are on the same tab. Since there is only one tab order, I can not do that.

Thanks for the suggestion though.

Does anyone know how to do this?

[Chris Byrom]

This is all I have left to complete my project. Is there another approach that I am not thinking of? I just need to capture when tab is hit from a button.

Thanks.

[MidgetsBro]

That's not what I meant. Each control, no matter if you have tabs on your program or not, have a tab index. But, if you want to do it your way, here is some code.

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then
    Text1.SetFocus
End If
End Sub

I don't know if that will work for sure... try it and see

[MidgetsBro]

oh wait. I see now that you are trying to use command buttons. here is some updated code.

Private Sub Command2_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then Command1.SetFocus
End Sub

and set the tabstop values or all the controls to false. That should work.

[Chris Byrom]

Thanks for your replies. I was not clear enough in my second post. The reason I could not use the tab stops is that each tab, on the form has this same situation. So I could use it for one instance, but not all three.

The users of my app want the focus to return to the first field on the tab when they tab past the last button on the tab. They want this on all three tabs, so I can not set the tab stop to the same number on three controls.

Anyway, I will try this tomorrow when I get to work.

Thanks again for your help.

[Chris Byrom]

The KeyPress event does not seem to fire on a command button, when you hit the tab key. Key up and key down do not either. Does anyone have any ideas?

[kedaman]

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Command1_LostFocus()
    If GetAsyncKeyState(vbKeyTab) Then Debug.Print "tab"
    If GetAsyncKeyState(vbKeyLeft) Then Debug.Print "left"
    If GetAsyncKeyState(vbKeyRight) Then Debug.Print "right"
End Sub

[Chris Byrom]

I just found that on the Microsoft Support Site, and I was fixing to post it. For the record, it works great.

Thanks again for all of your input.