高手帮忙解决一下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
求各位大侠帮忙解决一下 展开
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
求各位大侠帮忙解决一下 展开
提示该问答中所提及的号码未经验证,请注意甄别。
5个回答
展开全部
If (Text1.Text = "") Then
MsgBox "用户帐号不能为空"
Exit sub
End If
-----------------
其它的检查的判断类似。
MsgBox "用户帐号不能为空"
Exit sub
End If
-----------------
其它的检查的判断类似。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
前4个if...then块中都加上一句:exit sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我试了,你的程序没问题啊。有问题联系1579497022
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询