请教：怎样使得TEXT控件得到焦点的时候自动选定TEXT控件里的值。

Question

sub text_setfocustext1.selstrat=0
text.sellenght=len(text1.text)end sub

Answer 1

sub setfocus是:  text的事件,达到焦点!

Answer 2

Private Sub Text1_GotFocus()
    Text1.Text = "hahaha"
End Sub
你的意思是这样？

Answer 3

用gotfocus事件
text1_gotfocus()中输入
sendkeys "{HOME}+{END}"

Answer 4

Sub TextBox_SetFocus
    TextBox.SelStrat=0
    TextBox.SelLenght=len(TextBox.text)
    
End Sub

Answer 5

Private Sub Text1_GotFocus()
SendKeys "{HOME}+{END}"
End SubPrivate Sub Text2_GotFocus()
With Text2
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Answer 6

text1.selstrat=0
text.sellenght=len(text1.text)

Answer 7

Sub TextBox_gotFocus
    TextBox.SelStrat=0
    TextBox.SelLenght=len(TextBox.text)
End Sub