| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 685 人关注过本帖
标题:[求助]新手问个文本框输入问题
取消只看楼主 加入收藏
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
快速回复:[求助]新手问个文本框输入问题
数据加载中...
 
   



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

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