Vb6 Visual Basic 6窗体

我如何知道表单（我正在处理的表单除外）处于打开或关闭状态？

您可以搜索表单集合

Dim aForm
For Each aForm In Forms
  If aForm Is Form1 Then
    MsgBox "Found Form1"
  End If
Next

---

如果表单在应用程序中，只需在内部跟踪其状态即可。毕竟——当代码可以被创建或销毁时，您可以控制代码中的点

您必须区分加载的和可见的

• 要获得可视性，只需检查

  Visible

  属性（注意，对已卸载的表单执行此操作将导致其被加载）
• 不幸的是，对于加载状态，没有属性。您必须迭代所有表单，并查看您的表单是否包含在已加载表单的列表中：

  Public Function IsFormLoaded(FormToCheck As Form) As Boolean
    Dim F As Form 
    For Each F In Forms
      If F Is FormToCheck Then
        IsFormLoaded = True
        Exit Sub
      End If
    Next
  End Sub
  

全局集合

表单

包含当前加载的所有表单