标题:[求助]新手问个关于登录窗体的问题~!!
只看楼主
maozi0123
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-3-20
 问题点数:0 回复次数:7 
[求助]新手问个关于登录窗体的问题~!!
呵呵,刚学习VB,做了个登录窗体,但有点问题!!
Private Sub cmdOK_Click()

If txtUserName.Text <> "sky" Then
MsgBox "用户名错误!", vbOKOnly, "错误"
Else
If txtPassword <> "123321" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的

MsgBox "无效的密码,请重试!", , "登录"

Else
If txtUserName.Text = "sky " And txtPassword = "123321" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Form1.Show
End If

End If
End If
End Sub
我想连接到Form1窗体去,但按确定却没反应~~~请各位大虾指教下!!
搜索更多相关主题的帖子: 窗体 sky Then 
2007-06-24 00:53
缘子弹
Rank: 1
等 级:新手上路
帖 子:184
专家分:0
注 册:2007-4-5
得分:0 
你登陆窗体的名字是什么?别告诉我就是Form1哈~

2007-06-24 02:11
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
得分:0 

If txtUserName.Text = "sky " And txtPassword = "123321" Then
换成
If txtUserName.Text = "sky" And txtPassword = "123321" Then
或删掉

2007-06-24 09:53
缘子弹
Rank: 1
等 级:新手上路
帖 子:184
专家分:0
注 册:2007-4-5
得分:0 
西山绝对不是个近视的人!!!

2007-06-24 10:17
maozi0123
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-3-20
得分:0 
以下是引用西山居士在2007-6-24 9:53:05的发言:

If txtUserName.Text = "sky " And txtPassword = "123321" Then
换成
If txtUserName.Text = "sky" And txtPassword = "123321" Then
或删掉

晕,这不一样的吗?没看出什么不同啊!!

2007-06-24 10:52
缘子弹
Rank: 1
等 级:新手上路
帖 子:184
专家分:0
注 册:2007-4-5
得分:0 
以下是引用西山居士在2007-6-24 9:53:05的发言:

If txtUserName.Text = "sky " And txtPassword = "123321" Then
换成
If txtUserName.Text = "sky" And txtPassword = "123321" Then
或删掉

看到红色部分了没?

我刚才称赞西山好视力你还不开窍啊?

[此贴子已经被作者于2007-6-24 11:52:45编辑过]


2007-06-24 11:52
jiang_zj
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-6-21
得分:0 
以下是引用maozi0122007-6-24 10:52:46的发言:

晕,这不一样的吗?没看出什么不同啊!!

没错,上面一个语句"sky "多一空格。最后一个If语句的条件永远为false,所以Form1.show永远都执行不了。

2007-06-24 12:45
maozi0123
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-3-20
得分:0 

呵呵,不好意思~~那确实太细微了,两位好眼力,现在可以了!!谢谢啊!

[此贴子已经被作者于2007-6-24 13:02:25编辑过]

2007-06-24 13:01



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




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

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