用下面的代码,关闭窗体所有进程,不再驻留内存. Private Sub Form_Unload(Cancel As Integer) If Not 窗体名 Is Nothing Then Unload 窗体名 End If End Sub
可能是有隐藏的窗体没有关闭,程序退出之前应先关闭,方法是添加如下事件:Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Unload 窗体名 '卸载隐藏的窗体End Sub另外需要注意的是,请把MDI窗体的AutoShowChildren属性设置为False
Private Sub Form_Unload(Cancel As Integer)
If Not 窗体名 Is Nothing Then
Unload 窗体名
End If
End Sub
Unload 窗体名 '卸载隐藏的窗体End Sub另外需要注意的是,请把MDI窗体的AutoShowChildren属性设置为False