Question

vb 单击text控件，选中里面的所有内容，请问怎么实现

Answer 1

Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Answer 2

Private Sub Text1_GotFocus()
Text1.SelStart = 0: Text1.SelLength = 1000
End Sub

Answer 3

Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub