5.2.3.7 Excel VBA窗体的QueryUnload事件

2015年09月17日 10:48
   即将要卸载窗体的时候，窗体对象就会收到一个伽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