我正在编写下面的代码,以验证compulsary字段帐户编号。在形式上。当出现错误时,用户的要求被设置为将焦点放在字段上:
If txtAccountNo = "" Then
MessageBox.Show("Account no filed can't be left empty")
txtAccountNo.SetFocus
Exit Sub
End If它正常工作了。但是假设用户不想填写表单并退出应用程序。消息框继续显示,直到用户输入帐号号。
我怎样才能避免这种情况?请帮帮忙。
发布于 2012-05-09 06:48:08
设置标志以指示用户已经看到消息框。检查标志,以防止任何未来的消息框。在将焦点设置回textbox之前,请确保设置了标志。
dim bMsgBox as boolean=false
If txtAccountNo = "" and bMsgBox = false Then
MessageBox.Show("Account no filed can't be left empty")
bMsgBox=true
txtAccountNo.SetFocus
Exit Sub
End Ifhttps://stackoverflow.com/questions/10510787
复制相似问题