VB6 关闭MDI窗体中所有的子窗体
发表于 2023年5月4日 14:50
如果用户在一个MDI窗体中打开了许多子窗体，要一个个关闭确实是件麻烦事。当然你可以将MDI窗体卸载掉来解决这个问题，但如果用户此时还不想退出程序呢？
下面这个小程序可帮你这个忙。
首先在MDI窗体的菜单中加入mnuCloseAll这个菜单项，然后在其Click事件中加入下面的代码：
返回列表Screen.MousePointer = vbHourglass
Do While Not (Me.ActiveForm Is Nothing)
Unload Me.ActiveForm
Loop
Screen.MousePointer = vbDefault