摘要载入中…　　　　请稍等…















内容载入中…　　　　请稍等…

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

 2009-1-5 21:12:56　　　来源：互联网　　
   

　·请问在VB中如何关闭别的应用程序窗口　·使MDI窗口有一个背景图象或使它平铺　·奇形怪状的窗体 
关闭MDI窗体中所有的子窗体

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

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

Screen.MousePointer = vbHourglass 

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

Screen.MousePointer = vbDefault
　[1]