本段代码实现了在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