请帮我看一下这段程序PrivateSubFormUnload(CancelAsInteger)IfMsgBox("真的要关闭窗口吗?",vbYesNo+vbQuestion,"关闭")ThenCancel=TrueEndIfEndSub为什么运行时不管是点“是”还是'否"都不能关闭窗口呢?

Question

请帮我看一下这段程序
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的要关闭窗口吗?",vbYesNo + vbQuestion,"关闭") Then
Cancel = True
End If
End Sub
为什么运行时不管是点“是”还是'否"都不能关闭窗口呢?

Answer 1

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的要关闭窗口吗?",vbYesNo + vbQuestion,"关闭") = vbNo Then
Cancel = 1
End If
End Sub