如何使光标自动跳出?

xryaccess2

我在设计一个注册窗体时,想在一个文本框中输入4个字符后,光标自动跳到下一个文本框,在击键事件中用

if len(me.text1.value)=4 then

me.text2.setfocus

end if 但每在一次击键事件后(每输入一个字符后),整个文本框都被选中,不方便继续输入,请问如何实现这个功能?千恩万谢！

好学

你改成这样试试：键按下事件

if len(me.text1.text)=4 then



me.text2.setfocus



end if

xryaccess2

不太行啊,要在text1中击第5下,光标跳出去啊,我改为len(me.text1.text)>=3也不行,在击第4下时,光标跳出,但text1中就只有3个字符.

好学

放在键释放事件：

Private Sub text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If Len(Me.text1.Text) = 4 Then
       Me.Text2.SetFocus
    End If
End Sub

[此贴子已经被作者于2006-11-7 12:51:08编辑过]

xryaccess2

太感谢“好学”了， [em17]