文本框焦点问题

[kamengwang]

使鼠标移到一个文本框或tab到 一个文本框，如何使里边原来的文字变成选择状态？
意思是可以直接输入东西，不用手工删除里边原来的东西，

急等，谢谢

[3q2008Com]

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

[sdrcxzy]

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

[kamengwang]

大哥们，说清楚点，我刚学，不懂怎么用阿，你们在说清楚点行吗？这个函数怎么调用阿？

[kamengwang]

OK，我知道怎么用了，刚才调用错了，哈哈，马上揭帖

[crycoming]

就在文本框的Gotfocus事件中仿照着写上面的代码

[threenewbee]

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

[wudeqing]

你的文本框用的控件数组吗，如果是的话，则：
Private Sub Text1_GotFocus()
　for i = 1 to N (n为你的text个数，就是控件数据下标)
　　　Text1(i).SelStart = 0
Text1(i).SelLength = Len(Text1(i).Text)]
End Sub