关于密码的问题?

[liuyi3000]

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后无反映

[rainstormmaster]

//为什么这样会失效 点击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

[danpianji2002]

hehe程序好像真的不完整阿

[踏平扶桑]

当你用户名和密码里有空格就有反映了

[hisofty]

注意：密码是区分大小写的，所以比较的时候也要……

[itlive]

如果正确当然没反映，你只做了错误的处理，
正确时做一下提示， for example
msgbox "succed",vbokonly