Private Sub Picture1_Click()
Dim a
If Text1.Text"" And Text2.Text"" Then
a = MsgBox("帐号未激活！", , "错误信息")
Else
a = MsgBox("帐号和密码不能为空！", , "错误信息")
End If
End Sub
Private Sub Picture2_Click()
Unload Me
Form2.Show
End Sub
Private Sub Text1_Change()
End Sub
我想加入在Text2中如果输入为：123456 点击就能弹出提示：验证成功
如果错误就弹出错误！！
问一下大家这样完整的代码是什么？。
必须结合上面完整的喔！。。没数据库的！
Private Sub Picture1_Click() Dim a if Text2.Text"" Then
if Text2.Text ="123456" Then
a = MsgBox("严正成功, "提示信息")
else
a = MsgBox("密码错误！", , "错误信息")
end ifElse a = MsgBox("帐号和密码不能为空！", , "错误信息") End If End Sub Private Sub Picture2_Click() Unload Me Form2.Show End Sub Pr...
