关于密码的问题?

liuyi3000 2003-10-18 07:24:39
Private Sub CommandOk_Click()
Dim a As String
Dim b As String
a = TextUser.Text
b = TextPassword.Text
If trim(a) <> "1" Then MsgBox "Error": End
if trim(b) <> "1" Then MsgBox "Error": End
End Sub

为什么这样会失效 点击button后无反映
...全文
7 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
itlive 2003-10-19
如果正确当然没反映,你只做了错误的处理,
正确时做一下提示, for example
msgbox "succed",vbokonly
回复
hisofty 2003-10-19
注意:密码是区分大小写的,所以比较的时候也要……
回复
踏平扶桑 2003-10-18
当你用户名和密码里有空格就有反映了
回复
danpianji2002 2003-10-18
hehe程序好像真的不完整阿
回复
rainstormmaster 2003-10-18
//为什么这样会失效 点击button后无反映

因为你的程序,只对用户名和密码错误时进行了处理

Private Sub CommandOk_Click()
Dim a As String
Dim b As String
a = TextUser.Text
b = TextPassword.Text
If trim(a) <> "1" Then MsgBox "Error": End
if trim(b) <> "1" Then
MsgBox "Error"
End

else
msgbox "sure"
end if
End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-10-18 07:24
社区公告
暂无公告