标题:[求助]新手问个文本框输入问题
取消只看楼主
azraelsw
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-5-24
 问题点数:0 回复次数:0 
[求助]新手问个文本框输入问题
设计:
两个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
这段代码
搜索更多相关主题的帖子: 文本 输入 
2006-05-25 10:01



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-66973-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.786074 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved