• Home
 · 
• Miscellaneous
 · 
• Select all text in a text box

Select all text in a text box

Select all text in a text box

API Declarations



No declarations...



Rate Select all text in a text box

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'This function selects all text in a textbox
'Usage:  Put code in the gotfocus event
'Usage:  SelectAllTxt TextBoxName
Dim Search, Where
Where = InStr(TextBoxName.Text, Search)
If Where Then
    TextBoxName.SelStart = Where - 1
    TextBoxName.SelLength = Len(TextBoxName)
    Exit Function
Else
    Exit Function
End If
End Function