本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2008年12月14日
统计字数: 203字
阅读时间: 1分钟阅读
本文链接: https://soulteary.com/2008/12/14/prompted-the-closure-of-the-procedure-before.html

-----


# [vb]关闭程序前提示

程序关闭之前的询问对话框

```vb
Option Explicit

Private Sub Form_Unload(Cancel As Integer)

 Dim Result As VbMsgBoxResult

 Result = MsgBox("是否退出?", vbQuestion + vbYesNo + vbDefaultButton1, "提示")

 If Result = vbNo Then Cancel = 1

End Sub
```