文字数による移動

質問

VisualBasicにおいて、テキストボックス内にたとえば４文字入力されたら、もう一つのテキストボックスに移る（つまりすぐに入力できるようにする）というプログラムは作れるのでしょうか？
　例：テキストボックス１に「1542（４桁）」と入力された瞬間にテキストボックス２に移動し、マウスを動かさずにテキストボックス２に入力する。
できるのであればやり方を教えてください。教えてください。

回答No.3

imogasi · ベストアンサー

ちょっと付け加えが必要？。
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_Change()
Static m As Integer
MsgBox m
If Len(Text1.Text) >= 4 Then
Text2.SetFocus
m = 0
Else
m = m + 1
End If
End Sub
mとMsgBoxは参考までにいれたもの。外してください。
BackSpaceも勘案される。

回答No.2

taknt

＃１の人のをちょっと変えて・・・。

Private Sub Text1_Change()
If lenb(Text1.Text) >= 4 Then

Text2.SetFocus
End If

End Sub

回答No.1

daisuke-123

Private Sub Text1_Change()
If Str(Text1.Text) >= 1000 Then

Text2.SetFocus
End If

End Sub