Auto Select Text

[slashandburn]

How could i auto select all the text in a textbox? Like when i click
in the box it would select all text.

[qflash]

text1.seltext=text1

[Hack]

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

[slashandburn]

Thanks, Now it will be so much easier to edit all 16 text boxes.

[axion_sa]

Originally posted by Hack

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

to make things easier:

'In a module
Public Sub HighlightText(objControl As TextBox)
  With objControl
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End Sub
 
'In your form
Private Sub Text1_GotFocus()
  HighlightText Text1
End Sub