Office中国论坛/Access中国论坛

标题: 如何使光标自动跳出? [打印本页]

作者: xryaccess2 时间: 2006-11-7 19:49
标题: 如何使光标自动跳出?
我在设计一个注册窗体时,想在一个文本框中输入4个字符后,光标自动跳到下一个文本框,在击键事件中用

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

me.text2.setfocus

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

作者: 好学 时间: 2006-11-7 20:00
你改成这样试试：键按下事件

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

me.text2.setfocus

end if

作者: xryaccess2 时间: 2006-11-7 20:18
不太行啊,要在text1中击第5下,光标跳出去啊,我改为len(me.text1.text)>=3也不行,在击第4下时,光标跳出,但text1中就只有3个字符.

作者: 好学 时间: 2006-11-7 20:50
放在键释放事件：

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 时间: 2006-11-7 20:59
太感谢“好学”了， [em17]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)