关于焦点的问题

xuco 2003-01-06 11:15:53
看下面代码:
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失去焦点的警告窗口,如此死循环。怎么解决,请高手指教,谢谢
...全文
3 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2003-01-06
Private Sub Text1_Validate(byval cancel as boolean)
If Len(Text1.Text) <> 4 Then
MsgBox "fdsfds"
cancel = true
End If
End Sub

Private Sub Text2_Validate(byval cancel as boolean)
If Len(Text2.Text) <> 4 Then
MsgBox "fdsfds"
cancel = true
End If
End Sub
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

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