关于焦点的问题

xuco 2003-01-03 03:07:49
看下面代码:
Private Sub Text1_LostFocus()
If Len(Text1.Text) <> 4 Then
MsgBox "fdsfds"
End If
Text1.SetFocus
End Sub

Private Sub Text2_LostFocus()
If Len(Text2.Text) <> 4 Then
MsgBox "lost focus"
End If
Text2.SetFocus
End Sub
运行后焦点在第一个文本框,在第一个文本框输入字符,若字符不等于4,当我点第二个文本框后,就弹出text1失去焦点的警告窗口,我点了确定后,若text2里的字符也不等于4,又弹出text2失去焦点的警告窗口,我点了确定后,又弹出text1失去焦点的警告窗口,如此死循环。怎么解决,请高手指教,谢谢
...全文
5 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
xuco 2003-01-06
我发的文章在哪儿去了
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7450

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告