Question

VB如何在第一个TEXTBOX输入后自动跳到第二个TEXTBOX

VB如何在第一个TEXTBOX(已设置最多输入两位)输入后自动跳到第二个TEXTBOX的输入窗口~

Answer 1

注意先把Text1的MaxLength设为2
比一楼的(回答)要好很多..
否则按粘贴的话就可以让字符超过2位..
再输入代码:
Private Sub Text1_Change()
If Len(Text1.Text) >= 2 Then Text2.SetFocus
'注意">"号可以不要..只是防止突发事件..导致字符超过2了却不执行..但已经设置MaxLength为2应该不需要吧...
End Sub

我建议的完整代码:
Private Sub Text1_Change()
If Len(Text1.Text) >= 2 Then Text2.SetFocus: Text2.SelStart = 0: Text2.SelLength = Len(Text2.Text)
End Sub
这样会很好的..假若你Text2已经输入了东西..当Text1转到Text2时就会自动选取Text2的全部字符..你要修改就可以直接输入覆盖原有内容...无须手动把Text2原有内容删掉或全选再输入...

Answer 2

用函数len()判断它是否输入两位了，然后用if语句使它到达两位后让下个TEXTBOX获得焦点

Answer 3

在text1的change事件中加入如下代码：
If Len(Text1.Text) = 2 Then
Text2.SetFocus
即：
Private Sub Text1_Change()
If Len(Text1.Text) = 2 Then
Text2.SetFocus
End If
End Sub