在GotFocus时快速选择文本

领测软件测试网

　　 

　　Quick 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

文章来源于领测软件测试网 https://www.ltesting.net/