在一个mdi父窗体中假如要关闭所有的子窗体，如何判断有哪些窗体还驻留内存?

Question

在线等待！

Answer 1

做一個 for循環.dim frm as form
dim obj as object
for each frm in vb.forms
for each obj im frm.comtrols
set obj=nothing
next obj
unload frm
next frm**************************
for each frm in vb.forms
if not frm is me then unload frm
next
unload me

Answer 2

dim x as integer
x=isformloaded(form1)
if x then
   unload form1
end ifprivate function isformloaded(formtocheck as form) as integer
dim i as integer
for i=0 to forms.count-1
     if forms(i) is formtocheck then
            isformloaded=true
            exit function
      end if
next i
isformloaded =false
end function