如何自动选种text框中的文字（急救）

Question

如何让text框中的文字自动被选中（相当于属于划过这些文字的功能），然后可以方便的复制粘贴。

Answer 1

Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)

Answer 2

不好用啊？？？
我建个text框和一个command按钮。代码如下：
Private Sub Command1_Click()
Text1.Text = "test"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub不好用啊，文字没有被选种啊？请高手解答

Answer 3

TechnoFantasy(冰儿马甲www.applevb.com) 的代码没错只要把Text1的HideSelection属性设置成False就成了

Answer 4

或者这样Private Sub Command1_Click()
    Text1.SetFocus
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub

Answer 5

用数组好办
Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
End Sub

Answer 6

Private Sub Command1_Click()
Text1.Text = "test"
Text1.SelStart = 0
if len(Len(Text1.Text))>0 then Text1.SelLength = Len(Text1.Text)
text1.setfouse   '使text1得到焦点
End Sub

Answer 7

blueswind8306(小飞猪)的方法可以实现！把Hideselection 属性设置为FALSE即可。

Answer 8

用setfocus，然后SendKey{"home"+"end"},语法请查

Answer 9

Text1.Hideselection=FALSE
Text1.SelStart = 1
Text1.SelLength = Len(Text1.Text)