各位大哥,怎么实现在窗体关闭前弹出一对话框询问是否关闭窗体,如选择不关闭则窗体关闭被停止。
解决方案 »
- vb 引用office DOMI执行ocr后出现ocr running error
- 郁闷!gooole,百度了几天,都没有找到在XP下能用的抓包源吗?
- 求问数据库随即选择的问题?
- 搜遍了整个版块也没有找到答案的问题...
- 计算球半径和球心坐标
- 100分提问,jmail发送邮件,附件损坏的问题
- 关于我厂所用DCS软件的遇到几个问题,谢谢帮助!!
- 如何能把从ODBC得到的数据库的数据放到EXCEL的单元格中?
- 我用sqlserver2000做数据库,想模仿金蝶软件的做法让客户端选择数据库服务器如何实现?
- 软件窗体控件很多,而且窗体是固定大小的,有时客户希望能全屏化,怎么弄?
- 继续散分!!!!!!!!!!!!!!!!!!!4
- richtextbox1.oleobjects.add ,,picture1.picture,"staticdib"可以吗?
QueryUnload 事件
在一个窗体或应用程序关闭之前发生。当一个 MDIForm 对象关闭时,QueryUnload 事件先在 MDI 窗体发生,然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件,该 Unload 事件首先发生在所有其它窗体中,然后再发生在 MDI 窗体中。当一个子窗体或一个 Form 对象关闭时,在那个窗体中的 QueryUnload 事件先于该窗体的 Unload 事件发生。语法Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)Private Sub MDIForm_QueryUnload(cancel As Integer, unloadmode As Integer)QueryUnload 事件语法包括下列部分:部分 描述
cancel 一个整数。将此参数设定为除 0 以外的任何值,可在所有已装载的窗体中停止 QueryUnload 事件,并阻止该窗体和应用程序的关闭。
unloadmode 一个值或一个常数,如返回值中所描述的,它指示引起 QueryUnload 事件的原因。
返回值unloadmode 参数返回下列值:常数 值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode 1 Unload 语句被代码调用。
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。
vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。
这些常数是在对象浏览器中的 Visual Basic (VB) 对象库中列出。说明此事件的典型用法是在关闭一个应用程序之前用来确保包含在该应用程序中的窗体中没有未完成的任务。例如,如果还未保存某一窗体中的新数据,则应用程序会提示保存该数据。当一个应用程序关闭时,可使用 QueryUnload 或 Unload 事件过程将 Cancel 属性设置为 True 来阻止关闭过程。但是,QueryUnload 事件是在任一个卸载之前在所有窗体中发生,而 Unload 是在每个窗体卸载时发生。
点关闭按钮时运行一个对话框点是就unload me
If MsgBox("你確定要關閉嗎?", vbInformation + vbYesNo, "提醒") = vbNo Then
Cancel = 1
End If
End Sub