Question

VB中怎么重复判断并自动使光标跳到下一个文本框？

有一个文本框控件组，共30个文本框，怎么才能使得当文本框中的数字大于10时，光标自动跳到下一个文本框，下个文本框输入的数字大于10时，光标继续自动跳到下下个文本框？
自己搞定了。

Answer 1

菜鸟级代码

Private Sub Text1_Change()

If Text1.Text = "10" Then

Text2.SetFocus

End If

End Sub

追问

这样只能跳到第二个啊，我要在第二个框输入数据时，自动跳到第三个去，不至于要每个文本框写一个if过程吧？

Answer 2

'text数组控件：
Private Sub Text1_Change(Index As Integer)
If IsNumeric(Text1(Index)) Then
If Val(Text1(Index)) > 10 Then
If Index = Text1.UBound Then
MsgBox "已到最后一个文本框"
Else
Text1(Index + 1).SetFocus
End If
End If
End If
End Sub