博客展示了一段VB代码，其功能是关闭除指定窗体外的其它窗体，主要用于关闭所有子窗体。代码中通过遍历窗体，若窗体名不是“frmMDIMain”则将其卸载，同时考虑了防止数据库连接不能关闭的情况。
本段代码实现了在VB中关闭除指定窗体外的其它窗体，其实主要用于关闭所有的子窗体：
代码如下：
'为防止数据库连接不能关闭，在此关闭所有的窗口
Dim frm As Form
For Each frm In Forms
If frm.Name <> "frmMDIMain" Then Unload frm
Next
代码如下：
'为防止数据库连接不能关闭，在此关闭所有的窗口
Dim frm As Form
For Each frm In Forms
If frm.Name <> "frmMDIMain" Then Unload frm
Next
扫一扫
2万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
