# Re: 问一个textbox所导至无穷回圈的问题

Posted by Roberts on September 23, 1998 at 16:57:28:

In Reply to: 问一个textbox所导至无穷回圈的问题 posted by 小马 on September 23, 1998 at 15:51:39:

: 请问一下今天我如果在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

你将原来程式中 text1.setfocus 改成 text2.setfocus
text2.setfocus 改成 text1.setfocus即可，text1的even
中应该是text2.setfocus，反之亦然。

Follow Ups:

- Re: 您的方法跟我的要求不一样耶?! 小马 18:11:28 9/23/98 (8)
  - 建议不要写在 LostFocus 事件中 小吴 08:01:55 9/24/98 (7)
    - 这样就无法即时控制USER不能继续输入了啊?! 小马 08:43:06 9/24/98 (6)
      - Re: 可以这样做。。。 David Wong 13:40:24 9/24/98 (4)
        - 看不太懂耶！可以再讨论一下吗？ 小马 17:02:36 9/24/98 (3)
          - Re: 看不太懂耶！可以再讨论一下吗？ David Wong 13:33:35 9/25/98 (2)
            - 上次回信有个地方您漏看了，是我问题所在 小马 16:31:30 9/25/98 (1)
              - Re: 上次回信有个地方您漏看了，是我问题所在 David Wong 21:12:22 9/27/98 (0)
      - Re: 这样就无法即时控制USER不能继续输入了啊?! nothing 10:14:33 9/24/98 (0)