uick Text Select On GotFocus


When working with data entry controls, the current value in the control often needs to be selected when the control received focus. This allows the user to immediately begin typing over any previous value. Here注释:s a quick subroutine to do just that:


Public Sub FocusMe(ctlName As Control)


    With ctlName

        .SelStart = 0

        .SelLength = Len(ctlName)

    End With


End Sub


Now add a call to this subroutine in the GotFocus event of the input controls:


Private Sub txtFocusMe_GotFocus()

    Call FocusMe(txtFocusMe)

End Sub