VB怎么实现自动切换焦点？

来源：百度知道 编辑：UC知道 时间：2024/04/30 09:55:52
各位高手，问个问题.

新建几个TEXT控件，我想实现在第一个TEXT控件输入两个字符后，自动把焦点切换到下一个TEXT控件。在最后一个TEXT控件输入两个字符后，切换到一个COMMAND控件上。
怎么做代码啊？
那些序列号输入总是这样的，我想提高输入速度.

简单的说一下吧,用LEN语句检测字符数.大概可以为
if len(text1.text)=2 then
text2.SetFocus
end if
...以此类推
if len(textN.text)=2 then
command1.SetFocus
end if

意思是当字符数为2个时,就自动设焦点为下一个目标.

Private Sub Text1_Change()

If Len(Text1.Text) >= 2 Then
Text2.SetFocus
End If

End Sub

Private Sub Text2_Change()

If Len(Text2.Text) >= 2 Then
Command1.SetFocus
End If

End Sub