71.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 21 行

关闭MDI窗体中所有的子窗体

如果用户在一个MDI窗体中打开了许多子窗体，要一个个关闭确实是件麻烦事。当
然你可以将MDI窗体卸载掉来解决这个问题，但如果用户此时还不想退出程序呢？
下面这个小程序可帮你这个忙。

首先在MDI窗体的菜单中加入mnuCloseAll这个菜单项，然后在其Click事件中加入
下面的代码：

Screen.MousePointer = vbHourglass 

Do While Not (Me.ActiveForm Is Nothing) 
Unload Me.ActiveForm 
Loop 

Screen.MousePointer = vbDefault