即将要卸载窗体的时候,窗体对象就会收到一个伽eryUnload事件。通过检查
即将要卸载窗体的时候,窗体对象就会收到一个伽eryUnload事件。通过检查
UnloadMode参数可以了解窗体卸载的原因。以下是QueryUnloed事件处理过程的代码:
Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
,用户关闭窗体
Case vbFormCode
,代码终止窗体
Case vbAppWindows
,当前窗口进行正在终止
Case vbAppTaskManager
,任务粉理器关闭程序
Case vbFormMDlForm
,MDI父窗体关闭窗口
Case vbFormOwner
父窗体被关闭
End Select
End Sub
当然,可以通过将Cancel参数设置为True拒绝卸载窗体:
Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)
拒绝用户关闭窗口
Select Case UnloadMode
Case vbFormControlMenu,vbAppTaskManager
Cancel一True
End Select
End Sub