添加两个事件即可非常有效地解决此问题:Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case 0: '窗体右上角的X号关闭窗体 End Case 1: '程序代码关闭窗体,例如Unload Me End Case 2: '关闭Windows关闭窗体 End Case 3: '在任务管理器中关闭窗体 End Case 4: 'MDI窗体被卸载时关闭窗体,此程序无MDI窗体 End '如果有MDI窗体的话就用此句 End Select End Sub这两个事件都是窗体自身包含的事件!你只需要把事件中的代码加入到相应的事件中去即可。当然直接复制过去也可!
End
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case 0:
'窗体右上角的X号关闭窗体
End
Case 1:
'程序代码关闭窗体,例如Unload Me
End
Case 2:
'关闭Windows关闭窗体
End
Case 3:
'在任务管理器中关闭窗体
End
Case 4:
'MDI窗体被卸载时关闭窗体,此程序无MDI窗体
End '如果有MDI窗体的话就用此句
End Select
End Sub这两个事件都是窗体自身包含的事件!你只需要把事件中的代码加入到相应的事件中去即可。当然直接复制过去也可!