有关 MDI 窗体的小问题,请大家帮忙!

[Blackduck]

我制作了一个带 MDI 窗体的程序,可以同时打开几个子窗体运行,开始觉得很好,但后来一想麻烦大了,我在关闭主窗体时如何判断还有子窗体未关闭?有些窗体必须先关闭后才能关闭主窗体.请各位告诉我一个办法,谢谢了!

[lfshf]

很简单，建立一个子程序，专门用于Unload 子窗体
Sub UnloadChildForm()
unload form1
unload form2
....
把所有子窗体写上
End sub
在MDIUnload过程的第一句执行本子程序，掂！

[Blackduck]

谢谢大家,我的意思是如何判断一个特定的子窗体是否关闭,怎么才能得到已经打开的子窗体的状态,谢谢大家在帮我想一想办法.
谢谢!

[James0001]

枚举(?) forms 的所有窗体，看你要的窗体是否在里面。如果是的话那么那个窗体就还没有被关闭掉。

dim x as form,b as boolean
for each x in forms
if x is desiredForm then
'还开着
b=true
exit for
endif
next
if not b then
'已经关闭了
endif

[刘洪峰AIoT]

for i=0 to forms.count-1
unload forms(i)
next i

[DimVar]

同意 yefanqiu(叶帆)

[饮水需思源]

Dim frm As Form
For Each frm In Forms
If frm.Name <> mdi.Name Then
Unload frm
End If
Next

[holydiablo]

其实很简单

if mdiform.activeform is nothing
unload mdiform
endif

[tshow]

用一个end结束程序，所有窗体都关了

[remanwang]

在关闭主窗体之前所有的子窗体会自动关闭，不用你处理

[会飞的魔术师]

if not (mdiform.activeform is nothing) then
cancel=1
end if

[Blackduck]

up

[用户 昵称]

给打开的窗口的Tag属性赋值为窗口打开的序号

[lazycat818]

如果想在关闭主窗体时处理子窗体，如保存信息，可在QueryUnload中进行处理，如果此时想取消关闭过程，Cancel＝1即可。

[lazycat818]

设立一个动态数组或集合，加入为动态数组aFormState（）as byte,每打开一个窗口，Redim Preserve aFormState(gFormNum+1)设为1，改动设为2，关闭设为0，给打开的窗口的Tag属性赋值为窗口打开的序号。然后用aFormState(val(form.tag))判断状态。具体做法不用我说了吧？

[Blackduck]

谢谢大家!结贴!