在文本框的change事件中编写程序。
比如你的第一个文本框名称为text1,第二个为 text2.代码如下:
Private Sub Text1_Change()
If Not IsNumeric(Text1) Then Text1.Text = 0
If Len(Text1) = 4 Then Text2.SetFocus
End Sub
Private Sub Text1_Change()
If Len(Text1) = 4 Then Text2.SetFocus
End Sub
例如:
有两个text
Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then Text2.SetFocus
End Sub
SetFocus