标题: 如何实现:当文本框中的字符达到指定长度时自动跳到下一个文本框? [打印本页] 作者: xinle 时间: 2006-4-11 20:20 标题: 如何实现:当文本框中的字符达到指定长度时自动跳到下一个文本框? 比如:
"文本1"允许输入4个数字,当输入第五个数字时自动跳到"文本2"(第五个字出现在"文本2 "中),
当"文本2"的长度达到后又自动跳到"文本3"。以此类推!
能否实现？谢谢！作者: kevindeng 时间: 2006-4-11 20:55
Private Sub 文本1_KeyPress(KeyAscii As Integer)
If Len(Me.文本1.Text) = 4 Then
Me.文本2.SetFocus
End If
End Sub