如何实现:当文本框中的字符达到指定长度时自动跳到下一个文本框?

xinle

比如:
"文本1"允许输入4个数字,当输入第五个数字时自动跳到"文本2"(第五个字出现在"文本2 "中),
当"文本2"的长度达到后又自动跳到"文本3"。以此类推!
能否实现？谢谢！

kevindeng

Private Sub 文本1_KeyPress(KeyAscii As Integer)
If Len(Me.文本1.Text) = 4 Then
Me.文本2.SetFocus
End If
End Sub

以此类推