程序关闭问题

syskey000003 2004-08-26 10:18:46

有没有哪位大侠知道用VB写的应用程序在运行时当单击窗口右上角的关闭时,如果编写那个关闭铵钮的控制代码呢.

郁闷之中!!!

请赐教!!!!

...全文

301 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

syskey000003 2004-09-01

打赏
举报

此事件的典型用法是在关闭一个应用程序之前用来确保包含在该应用程序中的窗体中没有未完成的任务。例如，如果还未保存某一窗体中的新数据，则应用程序会提示保存该数据。

那么请问,如何在这一事件中写一段代码来检查有未保存的新数据呢.

pancult 2004-08-27

打赏
举报

直接写在 form unload 里面

kmzs 2004-08-26

打赏
举报

似乎一来就晚了。。。

apple_001 2004-08-26

打赏
举报

同意楼上

starsoulxp 2004-08-26

打赏
举报

同意小建

饮水需思源 2004-08-26

打赏
举报

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确认退出吗？", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption) = vbNo Then
Cancel = -1
End If

End Sub

huangjianyou 2004-08-26

打赏
举报

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的关闭吗？", vbQuestion + vbYesNo) = vbNo Then
Cancel = 1
End If
End Sub

^_^

lhy0922 2004-08-26

打赏
举报

在Form_Unload事件中控制

zuoxingyu 2004-08-26

打赏
举报

能说的都说完了，UP下吧

zyl910 2004-08-26

打赏
举报

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 是在每个窗体卸载时发生。