[求助]新手问个文本框输入问题
设计:两个TEXT文本框,用于输入文本
一个COMMAND按钮,用于判断这两个文本是否有输入内容
其他忽略
代码如下:
Private Sub Command1_Click()
if text1.text = "" then
msgbox "请输入内容"
text1.setfocus
end if
if text2.text = "" then
msgbox "请输入内容"
text2.setfocus
end if
其他代码忽略..
end sub
运行后:
如果我两个文本框都不输入内容
按下COMMAND1
会弹出“两次”提示框 《请输入内容》,然后光标停在TEXT2中。
疑问:
如果我两个文本框都不输入内容
按下COMMAND1时
当检测到TEXT1内容为空,弹出一个提示窗口,然后光标停在TEXT1中,不检测TEXT2文本框
直到我再按下COMMAND1,重新检测两个文本框
我想实现:
执行
if text1.text = "" then
msgbox "请输入内容"
text1.setfocus
end if
会弹出一次提示窗口,程序停止,光标在TEXT1中闪烁
不要继续执行
if text2.text = "" then
msgbox "请输入内容"
text2.setfocus
end if
这段代码