inputbox 高手给看下 怎么解决啊【已解决】

gm860419

Dim $a, $b
Do
        $a = InputBox ("登录窗口", "请输入用户名", "", "")
        $b = InputBox ("密码", "输入您的密码.", "", "*")
        If @error =1 Then Exit
        If $a = "" Then
                MsgBox(0 + 16 + 4096 + 262144, "错误信息", "输入的用户名不能为空")
        ElseIf $a <> "admin" Then
                MsgBox(0 + 16 + 4096 + 262144, '错误信息', '用户名不正确，请重新输入')
        Else
                If $b = "" Then
                        MsgBox(0 + 16 + 4096 + 262144, "错误信息", "输入的密码不能为空")
                ElseIf $b <> "123" Then
                        MsgBox(0 + 16 + 4096 + 262144, '错误信息', '密码不正确，请重新输入')
                Else
                        MsgBox(64, "恭喜", "成功")
                EndIf
        EndIf
Until $a = "admin" And $b = "123"

怎么点击取消，就窗口关闭，不显示密码窗口！

wsfda

有点不太明白，
请问楼主是要点击 Cancel 后和点击 XX后一样的效果吗

user3000

回复 1# gm860419

两个 INPUTBOX (第3和第4句)之间插入一条语句
If @error =1 Then Exit

menfan1

;If @error =1 Then Exit

gm860419

回复  gm860419

两个 INPUTBOX (第3和第4句)之间插入一条语句
If @error =1 Then Exit
user3000 发表于 2012-10-20 12:38

谢谢  大侠

yufei8051

这个也记号上。好好学习，认真搜索，感谢高手源码！

FMP

學習了
感謝高手提供

netegg

回复 3# user3000
不对呀，楼主逻辑有问题，这和输入不输入没关系呀，和@error也没关系，input的返回值就行了