'要试用此例请在窗体中粘贴如下代码
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
MsgBox "用户从窗体上的“控件”菜单中选择“关闭”指令。", vbInformation
Case vbFormCode
MsgBox "Unload 语句被代码调用。", vbInformation
Case vbAppTaskManager
MsgBox "Microsoft Windows 任务管理器正在关闭应用程序。", vbInformation
End Select
End Sub
如果不想窗体被关闭就Cancel将设为大于0的数就行了
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
MsgBox "用户从窗体上的“控件”菜单中选择“关闭”指令。", vbInformation
Case vbFormCode
MsgBox "Unload 语句被代码调用。", vbInformation
Case vbAppTaskManager
MsgBox "Microsoft Windows 任务管理器正在关闭应用程序。", vbInformation
End Select
End Sub
如果不想窗体被关闭就Cancel将设为大于0的数就行了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货