高手帮忙解决一下vb的问题如下:

PrivateSubCommand1_Click()If(Text1.Text="")ThenMsgBox"用户帐号不能为空"EndIfIf(Text2.Text="")... Private Sub Command1_Click()
If (Text1.Text = "") Then
MsgBox "用户帐号不能为空"
End If
If (Text2.Text = "") Then
MsgBox "用户密码不能为空"
End If
If (formMain.Zhongjiani1 <> Text1.Text) Then
MsgBox "用户帐号错误"
End If
If (formMain.Zhongjiani2 <> Text2.Text) Then
MsgBox "用户密码错误"
End If
If (formMain.Zhongjiani1 = Text1.Text And formMain.Zhongjiani2 = Text2.Text) Then
frmMusic.Show
End If
End Sub

代码如上 其中Zhongjiani1,Zhongjiani2是我在formMain中定义的全局变量,用来保注册信息中的账号和密码,text1中是要输入账号,text2 中是要输入密码
我的问题是:
当我在text1 和text2 中什么都不输的时候,点击command1 (也就是登录按钮)会弹出对话框说“用户账号不能为空”和“用户密码不能为空” 然后直接就弹出了窗口frmMusic 。
我是想在注册之后再在Zhongjian1和Zhongjian2中赋上值之后,在text1 和text2中输入相应的字符时再点击command1(登录按钮)再弹出窗口frmMusic

求各位大侠帮忙解决一下
展开
 我来答
该问答中所提及的号码未经验证,请注意甄别。
abcnyzay
2011-07-27 · TA获得超过1378个赞
知道小有建树答主
回答量:928
采纳率:100%
帮助的人:1038万
展开全部
If (Text1.Text = "") Then
MsgBox "用户帐号不能为空"
exit sub
End If
其他雷同,按此修改
blacklong
2011-07-27 · TA获得超过1501个赞
知道大有可为答主
回答量:2745
采纳率:0%
帮助的人:1253万
展开全部
If (Text1.Text = "") Then
MsgBox "用户帐号不能为空"
Exit sub
End If
-----------------
其它的检查的判断类似。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lxz1969
2011-07-27 · TA获得超过1.1万个赞
知道大有可为答主
回答量:8524
采纳率:33%
帮助的人:1.1亿
展开全部
前4个if...then块中都加上一句:exit sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友dffce85
2011-07-27
知道答主
回答量:44
采纳率:0%
帮助的人:0
展开全部
前面判断否定之后,未退出事件
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Hand_Hack
2011-07-27
知道答主
回答量:35
采纳率:0%
帮助的人:22.6万
展开全部
我试了,你的程序没问题啊。有问题联系1579497022
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式