本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2009年05月12日
统计字数: 245字
阅读时间: 1分钟阅读
本文链接: https://soulteary.com/2009/05/12/vb-unload-from.html

-----


# [VB]使用集合元素卸载非当前的所有窗口

[VB]使用集合元素卸载非当前的所有窗口 或许你觉得卸载窗口很简单，但是窗口如果很多呢。 看看我的代码吧。

```vb
Private Sub cmdShow_Click()
'显示所有的窗口
Form2.Show
Form3.Show
End Sub

Private Sub cmdUnload_Click()
'卸载非当前窗口
Dim frm As Form

For Each frm In Forms

If frm.Name <> "Form1" Then Unload frm

Next

End Sub
```