# Re: cww请帮忙解决这个问题...

Posted by nothing on September 24, 1998 at 10:44:19:

In Reply to: cww请帮忙解决这个问题... posted by 小马 on September 24, 1998 at 08:48:41:

: 请问一下今天我如果在form上布置了两个textbox,程式码如下所列:
: Private Sub Text1_LostFocus()
: MsgBox "text1 LOSTFOCUS"
: Text1.SetFocus
: End Sub

: Private Sub Text2_LostFocus()
: MsgBox "text2 LOSTFOCUS"
: Text2.SetFocus
: End Sub

: 当程式执行后,原本focus在textbox1,当我点选textbox2时,理所当然会触发textbox1的lostfocus事件,但此时程式的执行结果是会不断出现text1 lostfocus, text2 lostfocus之msgbox造成无穷回圈,为什么这两个textbox的lostfocus事件会一起触发呢?
: 之所以这样做是为了让user如果资料输入错误时不让其跳离当时的栏位,请指正其中错误,谢谢!!
: P.S.我的环境是win95 + vb6.0 sp3

个人建议:
不要下text2.setfocus指令,而由text的属性tabindex区分
输入的先后顺序,当主key在text1_lostfocus判断错误则
下指令text1.setfocus游标留在text1..如果主key正确则
游标自己会到下一个tabindex的物件上..

Follow Ups: