电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> VB编程>>VB在退出程序时回弹出确认对话框:

VB在退出程序时回弹出确认对话框

来源:洪恩在线 | 2006-12-17 | (有8399人读过)

'程序说明:
'当程序执行到 End 语句或是按下了 Alt+F4 组合键或是
'右上角X时,VB会先询问Sub Form_QueryUnload接着询问
'Sub Form_Unload(Cancel As Integer)。
'如果询问时发现 Cancel 为0(默认为0)才会退出程序。
'这样我们在Sub Form_Unload()中把Cancel设为非0的值
'就能避免直接关闭程序。
'--------------------------------------------
'这是十分有用的,例如我们为了防止正在编辑的文件没
'有存盘就退出,可以在程序中加上这段代码,然后另定
'义一个变量记录是否已经存盘,如果已经存盘就正常退
'出,否则提示存盘的信息。
'--------------------------------------------


'这是一个保险的办法,可用 QueryUnload 事件阻止从 Windows 中的退出。
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim IntR As Integer
IntR = MsgBox("确认要退出程序吗?", vbYesNo, "退出确认")
If IntR = vbNo Then Cancel = -1
End Sub

'Unload事件,当窗体从屏幕上删除时发生
'说明:
'将 cancel 设置为任何非零的值可防止窗体被删除,但
'不能阻止其它事件,诸如从 Microsoft Windows 操作
'环境中退出等。
'-------------------------------------------
'Private Sub Form_Unload(Cancel As Integer)
'Dim IntR As Integer
'IntR = MsgBox("确认要退出程序吗?", vbYesNo, "退出确认")
'If IntR = vbNo Then Cancel = -1
'End Sub
'-------------------------------------------

VB编程热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号