highlight text box using a tab key

[jason12776]

How can I highlight the text in a text box on the next tabStop using the tab key? I'm tried so many different combinations of solutions and nothing seems to work. I can get it to work for any other key I want, but not the tab key. Any ideas?

Cheers.

 

[johnwm]

Try this:

Private Sub Text2_GotFocus()
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub

When you tab to Text2 the whole text will be highlighted Let me know if this helps
________________________________________________________________
If you are worried about how to post, please check out FAQ222-2244 first

'There are 10 kinds of people in the world: those who understand binary, and those who don't.'

 

[jason12776]

To clarify: I want the text within the text box to be highlighted. Sorry.

 

[johnwm]

I'm missing something here. Code posted does highlight all text in Text2 (when run on my machine)
Have I misunderstood the question? Let me know if this helps
________________________________________________________________
If you are worried about how to post, please check out FAQ222-2244 first

'There are 10 kinds of people in the world: those who understand binary, and those who don't.'

 

[jason12776]

Thanks, works excellent.

 

[Swi]

First, start by creating a control array and then put this in the GotFocus event the the control array of textboxes:


Private Sub FieldBoxes_GotFocus(Index As Integer)
FieldBoxes(Index).SelStart = 0
FieldBoxes(Index).SelLength = Len(FieldBoxes(Index))
End Sub Swi

 

[jason12776]

Maybe you have misunderstood the question. I wanted to be able to tab through a series of text boxes, and when the focus was on a specific text box, highlight the text within the text box. It works just the way I need it to. Thank you.