Question

vb 关闭窗体时 弹出对话框 输入值 判断值等于某个字符串 一样关闭,不一样不让其关闭

Private Sub Form_Unload(Cancel As Integer)
Dim Mynum As String
Mynum = InputBox("请输入密码", "输入")
If "158123" = Mynum Then
Cancel = 1
End
End If
End Sub
这样对嘛？

Answer 1

这段代码有问题，首先要把语句中的End语句去掉否则，程序检测到密码正确，取消退出，但由于有End就无法取消，直接就退出了。另外，从一般逻辑上讲，应该密码正确退出程序，你现在的代码去掉End语句后实现的密码正确不退出，密码不正确反而退出，这不符合逻辑。应在if语句之前加一句Cancel = 1，将if语句后改为Cancel = 0。逻辑就正确了。