Text的问题

Question

如果用鼠标单击文本框的时候，如何才能全部选中文本框中的内容？

Answer 1

Private Sub txtUserName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)        SendKeys "{Home}+{End}"End Sub

Answer 2

Option ExplicitPublic Sub AutoSelect(txtSelect As TextBox)
'Purpose : 对文本框做全选操作
txtSelect.SelStart = 0
txtSelect.SelLength = Len(txtSelect)
End SubPrivate Sub Text1_GotFocus()
AutoSelect Me.Text1
End Sub-------------
www.vicmiao.com
努力就有美好时光！