怎样使vb中的Form 能在点击关闭按钮时弹出对话框提示啊？

用VB做了类似记事本的程序，请问怎样才能使比别人点击窗体右上角的关闭（X）按钮时，出现一个对话框，提示是否保存？？

16 个解决方案

#1

在Form_Unload 事件写代码即可

#2

蹭

#3

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    a = MsgBox("你是否保存？", vbYesNo)
    If a = vbNo Then Exit Sub
    Cancel = 1
    '保存
End Sub

#4

private sub form_unload(...)
dim a
a=msgbox("要退出吗?  y/n",vbyesno,"提示")
if a=vbyes then
   end
else
   exit sub
end if
sub

#5

在Form_QueryUnload　事件中写代码。

#6

蹭

#7

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        Dim int_Exit As Integer
        int_Exit = MsgBox("您确认要退出？", vbYesNo, "信息提示")
        If int_Exit = vbNo Then ' 取消退出操作
            Cancel = -1
        End If
End Sub

#8

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您确认要退出？", vbYesNo, "信息提示") = vbNo Then
Cancel = -1
End If

End Sub

#9

Form_QueryUnload
控制Cancel

#10

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If MsgBox("你真的想退出吗？", vbYesNo + vbDefaultButton1, "退出提示") = vbYes Then
End
Else
Cancel = True
End If

End Sub

#11

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)中编写代码

#12

Cancel =true可以取消关闭操作(Form_QueryUnload中)

#13

解决方法：
    If UnloadMode = vbFormControlMenu Then     ' 判断是否是因单击关闭按钮而引发的退出
        If MsgBox("Quit?", vbYesNo Or vbQuestion) = vbNo Then   ' 取消退出
            Cancel = 1
        End If
    End If

#14

QueryUnload

#15

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 事件。

#16

queryunload事件

#1