怎样实现在mdi窗口菜单中关闭所有子窗口？

[zhanglee2000]

给详细的代码好吗？谢谢了

[lihonggen0]

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

[superxmz]

你定义一个全局变量，假如为i，每次new一个子窗体时i+1
关闭时
on error resume next
do until i=0
if activeform.mdichild=true then
unload activeform
i=i-1
end if

loop

[Sunron128]

Private Sub mnuCloseAllMDIChild_Click()
If Me.ActiveForm Is Nothing Then Exit Sub

Do While Not Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop
End Sub

[superxmz]

楼上的方法比较简单，呵呵

[wxhfi]

李洪根给的是标准答案

[射天狼]

支持: lihonggen0(李洪根,用.NET，标准答案来了)

[snail2011]

if Not Me.ActiveForm Is Nothing then
unload Me.ActiveForm
end if

[onedream]

解决问题的方法有多种，为什么非要局限于一种呢？