| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 685 人关注过本帖
标题:[求助]新手问个文本框输入问题
只看楼主 加入收藏
azraelsw
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-5-24
收藏
 问题点数:0 回复次数:9 
[求助]新手问个文本框输入问题
设计:
两个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
csx78
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-15
收藏
得分:0 
看看这样行不行
if text1.text="" then
msgbox "请输入内容"
text1.setfocus
else if text2.text="" then
msgbox "请输入内容"
text2.setfocus
end if
2006-05-25 10:13
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
收藏
得分:0 
Private Sub Command1_Click()
if text1.text = "" then
msgbox "请输入内容"
text1.setfocus
exit sub
end if

if text2.text = "" then
msgbox "请输入内容"
text2.setfocus
exit sub
end if

其他代码忽略..

end sub

2006-05-25 12:31
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
应该这样:
Private Sub Command1_Click()
if text1.text = "" and text2.text = "" then
msgbox "请在text1和text2中输入内容"
text1.setfocus
exit sub

elseif text1="" then
msgbox "请在text1中输入内容"
text1.setfocus
exit sub

elseif text2="" then
msgbox "请在text2中输入内容"
text2.setfocus
exit sub

end if

其他代码忽略..

end sub
显然,经过判断后,text1和text2不会为空,程序将继续往后面的代码执行。

[此贴子已经被作者于2006-5-25 12:59:52编辑过]


2006-05-25 12:59
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
收藏
得分:0 
楼上老乡,我老家离你很近!

我觉着你的代码有一点点复杂!
下面一段是不需要的(当然要了更完善)

if text1.text = "" and text2.text = "" then
msgbox "请在text1和text2中输入内容"
text1.setfocus
exit sub
因为楼主的要求只要有一个为空就跳出来,而且不要再判断第二个了!可以说两个条件事或的关系!

2006-05-26 13:10
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
a = IIf(Text1.Text = "", "text1不能为空!", "text2不能为空!")
MsgBox a
End If
End Sub

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-26 13:20
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
如果两个同时为空,那么msgbox 的提示就显得不完美了。所以我觉得还是应该用if text1="" and text2="" then来判断,从而能给出正确的提示信息,以便用户操作。

2006-05-26 19:53
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
dragonfly,你老家在哪里?

2006-05-26 19:54
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
a = "text1和text2不能为空!"
Else
a = IIf(Text1.Text = "", "text1不能为空!", "text2不能为空!")
End If
MsgBox a
End Sub

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-27 15:01
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
收藏
得分:0 
以下是引用hyhhd在2006-5-26 19:54:00的发言:
dragonfly,你老家在哪里?

传说中芙蓉姐姐的故乡呵呵


2006-05-29 12:15
快速回复:[求助]新手问个文本框输入问题
数据加载中...
 
   



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

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