Snippet Library

Tips: Selecting text in a TextBox on focus

Create a new form and add a text box to it. Then copy and paste this code into general declarations sections of the form. Press F5 to run the sample. When the cursor enters the textbox, the text will be highlighted.

none

Private Sub Text1_GotFocus()
   Call HighlightContents(Text1)
 End Sub

 Public Sub HighlightContents(TextBoxControl As Control)
   With ctlName
    .SelStart = 0
    .SelLength = Len(TextBoxControl )
   End With
 End Sub;