在VB中怎么设定输入一个textbox，自动跳出下一个textbox

Question

在VB中怎么设定输入一个textbox，自动跳出下一个textbox
还有怎么让它自动计算输入textbox的个数

Answer 1

可以先设置其他textbox的visible=false,然后看你怎么判断前面一个输入完了，可以判断按下回车键或者失去焦点之类的，用这个事件激发visible＝true。输入的个数你可以遍历整个窗口中的textbox，然后看text的是不是为"",具体遍历方法是：
Dim ct As Control

For Each ct As Control In Me.Controls
If TypeOf ct Is TextBox Then
ct.Text = ""
End If
Next
这是.Net下面的，不知道你是不是，应该差不多把，不是""就累加1了。

Answer 2

Private Sub Text1_Change()
'如果Text1中输入的字符个数等于或超过4个 就转到Text2
If Len(Text1.Text) >= 4 Then Text2.SetFocus
End Sub

Answer 3

你需要建立一个text1,label1
text1的index属性设置为1,然后添加下面代码:
Dim i As Integer
Private Sub Form_Load()
Label1 = 1
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Text1(i + 1) = "" And Index = i + 1 Then
Load Text1(2 + i)
Text1(2 + i).Visible = True
Text1(2 + i) = ""
Text1(2 + i).SetFocus
Text1(2 + i).Top = Text1(i + 1).Top + Text1(i + 1).Height
i = i + 1
End If
Label1 = i + 1
End Sub
运行后你会发现,你在一个TEXT输入,他的下面会出现一个新的TEXT且,LABEL里面会显示当前TEXT的个数