VB6.0的调入问题

来源：百度知道 编辑：UC知道 时间：2024/07/01 08:16:57
一. combol列表框控件如何从数据库调入相应字段下的所有数据到列表框的目录下?
二. 怎么样才能让text1(0)文本框中的鼠标在输入限定的文字后自动跳到text1(1)文本框中?
一.号问题已经解决！
二.号问题是，怎么样才能让text1(0)文本框中的鼠标指针光标在输入限定的文字后自动跳到text1(1)文本框中?

2:功能Num为你设置的文字数，最后一个时，不会跳转。。。因为KeyPress事件是在显示输入的字符前触发的所以用num-1
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim Num
Num = 10
If Len(Text1(Index).Text) = Num - 1 And Index <> Text1.Count - 1 Then Text1(Index + 1).SetFocus
End Sub