Question

vb textbox 全选

Private Sub Form_Activate()
On Error Resume Next
Dim t As Control
For Each t In Form1.Controls
If TypeOf t Is TextBox Then
t.SelStart = 0
t.SelLength = Len(t.Text)
End If
Next
End Sub

我使用上面的语句用来让按TAB键后如果定位到TEXTBOX则会全选但是只要这个TEXTBOX输入了内容,就不会全选了.请问有什么办法能解决??
另外

Private Sub Text1_Click()
With Text1
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
这个是当鼠标点击TEXTBOX后回全选,现在我有100多个TEXTBOX.. 有没有方法用循环语句写出来达到这个效果?
一楼的可用 但我主要问题不是这个。。 而且我那么多TEXTBOX已经写好，难道一个一个再重搞么？
还是谢谢你。

Answer 1

100多个TEXTBOX？哪你用控件数组就行呀

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