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后无反映
...全文
435打赏收藏
关于密码的问题?
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后无反映
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