关于关闭所有窗体的问题！指教！

Question

try this:
on error resume next
dim frm as form
for each frm in forms
    unload frm
next frm
set frm=nothing

Answer 1

在主窗体中加入一菜单项，设其为不可见，其click代码如下：
Private Sub Mnu_closeall_Click()
'关闭所有MDI子窗体
'Screen.MousePointer = vbHourglass
Do While Not (Me.ActiveForm Is Nothing)
Unload Me.ActiveForm
Loop
'Screen.MousePointer = vbDefault
End Sub
在需要关闭的地方执行它即可实现。