Question

VB如何判断子窗体是否为打开

是这样的，有一个MDI窗体，有若干子窗体，如果同时打开两个以上子窗体时，后打开将不能最大化显示，这样看着非常别扭，而只打开一个时却能达到目的．我想同时只能打开一个子窗体，当打开时，如何判断有没有其他子窗体处于加载状态并将期关闭，请各位达人指教，最好能提供代码，谢谢！

Answer 1

正好我也需要这个功能，我是这样做的：

'判断指定窗体是否打开
Public Function frmopen(frmname As String) As Boolean
    Dim frmeach As Form
    
    For Each frmeach In Forms
        If frmeach.Name = frmname Then
            frmopen = True
            Exit Function
        End If
    Next
    frmopen = False
End Function

frmname是我们要判断是否打开的子窗体的名称，遍历所有窗体，如果要判断的窗体名称存在，则返回True，如果没有则返回false，根据返回函数来进行断判。

Answer 2

其中的方法就是打开前 卸载所有已打开的窗体
给你个过程 你自己调用吧~
'卸载所有窗体
Public Sub UnloadAllForms(Optional sFormName As String = "")
Dim Form As Form
For Each Form In Forms
If Form.Name <> sFormName Then
Unload Form
Set Form = Nothing
End If
Next Form
End Sub