我以前也有这种情况 都是用end来解决 不过现在我都用这个函数 来卸载所有的窗体 我不知道每个窗体执行了unload 后他会不会自己自动释放掉他里边的对象什么的资源,如果可以的话那个下边这个应该可以全部释放掉资源 不是的话还应该在每个窗体中随时释放掉自己用到的对象等资源 Public Sub unloadallForms() On Error Resume Next Dim unloadForm As Form For Each unloadForm In Forms Unload unloadForm Set unloadForm = Nothing Next unloadForm End Sub 不过也要养成好习惯那就是用到的对象集合什么的用完就立即释放掉
窗体要Unload
建议,对一些已经完成任务的窗体,最好用unload而不要用hide方法或把visible属性设成false!
不过现在我都用这个函数 来卸载所有的窗体 我不知道每个窗体执行了unload 后他会不会自己自动释放掉他里边的对象什么的资源,如果可以的话那个下边这个应该可以全部释放掉资源 不是的话还应该在每个窗体中随时释放掉自己用到的对象等资源
Public Sub unloadallForms()
On Error Resume Next
Dim unloadForm As Form
For Each unloadForm In Forms
Unload unloadForm
Set unloadForm = Nothing
Next unloadForm
End Sub
不过也要养成好习惯那就是用到的对象集合什么的用完就立即释放掉
end已是老套的办法了,如果能解决的话,我还用问吗!!unload与end的区别我知道,不过还是不行。