用VB做了类似记事本的程序,请问怎样才能使比别人点击窗体右上角的关闭(X)按钮时,出现一个对话框,提示是否保存??
解决方案 »
- 不解,为什么不能释放第二个窗体的窗体级变量
- msn的翻译机器人:[email protected],赶快加入,人数有限!
- 程序一次运行中,怎么先后得到两个相同的随机序列?
- 急!!!要将记录集的数据写入listview!请高手看看我的代码!有没有办法提高速度啊?
- 有关word的问题。很容易。
- 有那位大侠能给我讲一下vb程序的内部消息循环
- 在哪里能买到正版的ActiveReport软件?
- 关于用户权限设置
- VB如何获取某数据库一个(字段)的部份内容,并显示在DataGrid1?
- 关于OCX控件的加载问题,紧急求救!
- 急切问题(关于游标作为存储过程的出参,如何返给记录集?)
- setup factory 6 打包时的问题
a = MsgBox("你是否保存?", vbYesNo)
If a = vbNo Then Exit Sub
Cancel = 1
'保存
End Sub
dim a
a=msgbox("要退出吗? y/n",vbyesno,"提示")
if a=vbyes then
end
else
exit sub
end if
sub
Dim int_Exit As Integer
int_Exit = MsgBox("您确认要退出?", vbYesNo, "信息提示")
If int_Exit = vbNo Then ' 取消退出操作
Cancel = -1
End If
End Sub
If MsgBox("您确认要退出?", vbYesNo, "信息提示") = vbNo Then
Cancel = -1
End IfEnd Sub
End
Else
Cancel = True
End IfEnd Sub
If UnloadMode = vbFormControlMenu Then ' 判断是否是因单击关闭按钮而引发的退出
If MsgBox("Quit?", vbYesNo Or vbQuestion) = vbNo Then ' 取消退出
Cancel = 1
End If
End If
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 事件
当窗体从屏幕上删除时发生。当那个窗体被重新加载时,它的所有控件的内容均被重新初始化。当使用在 Control 菜单中的 Close 命令或 Unload 语句关闭该窗体时,此事件被触发。语法Private Sub object_Unload(cancel As Integer)Unload 事件语法包括下列部分:部分 描述
Object 一个对象表达式,其值是“应用于”列表中的一个对象。
Cancel 一个整数,用来确定窗体是否从屏幕删除。如果 cancel 为 0,则窗体被删除。将 cancel 设置为任何一个非零的值可防止窗体被删除。
说明将 cancel 设置为任何非零的值可防止窗体被删除,但不能阻止其它事件,诸如从 Microsoft Windows 操作环境中退出等。可用 QueryUnload 事件阻止从 Windows 中的退出。在窗体被卸载时,可用一个 Unload 事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。也可在其中包括任何在关闭该窗体时也许需要的验证代码或将其中的数据储存到一个文件中。QueryUnload 事件在 Unload 事件之前发生。Unload 事件在 Terminate 事件之前发生。使用 Unload 语句或在一个窗体的“控件”菜单上选择“关闭”命令,用“任务窗口”列表上的“结束任务”按钮退出应用程序,在当前窗体为其一个子窗体的情况下关闭该 MDI 窗体,或当应用程序正在运行的时候退出 Microsoft Windows 操作环境等情况都可引发 Unload 事件。