Need some hep - very easy

[hurgh]

Just wanted to know how to select the text in a text box when that text box get the focus.

Thanks

Hurgh

Try this:

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub

[BruceG]

Matthew - Shouldn't the last line ("Text1.SetFocus") be omitted? Otherwise, won't the GotFocus event will execute in an endless loop?

[Dim]

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

[Joacim Andersson]

Originally posted by BruceG
Matthew - Shouldn't the last line ("Text1.SetFocus") be omitted? Otherwise, won't the GotFocus event will execute in an endless loop?

It shoul be omitted. But it wont get in to an endless loop because the object allready has the focus so even if you call SetFocus the GotFocus event wont be fired.