在GotFocus时快速选择文本

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