Visual Basic > Forms

Set text selected when entering a textbox

Set text selected when entering a textbox

Public sub SetSelected()
    Screen.ActiveControl.SelStart = 0
    Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
    'put in every text1.gotfocus => SetSelected
    
End Sub

Return