有没有判断窗体已经存在的函数?

Question

Form 对象、Forms 集合
            Form 对象是窗口、或者对话框，它组成应用程序用户界面的一部分。Forms 集合是一个集合，它的元素代表每一个在应用程序中加载的窗体。集合包括应用程序的 MDI 窗体,MDI 子窗体和非 MDI 窗体。Forms 集合只有一个属性 Count，指定集合中元素的数目。语法FormForms(index)index 所在处是一个整数，变化范围从 0 到 Forms.Count - 1。说明在应用程序中可以使用 Forms 集合在所有装载的窗体之间迭代。它标识一个命名为 Forms 的内在全局变量。可以把 Forms(index) 传给函数，指定其参数为 Forms 类。窗体有一些属性确定了它们的外观，例如位置、大小、颜色；这些属性还确定了它们的行为，例如是否可调整大小。窗体还可以对用户初始化或系统触发的事件作出反应。例如，可以在窗体的 Click 事件过程中编写代码，从而通过单击窗体改变窗体的颜色。除了属性和事件外，还可以通过代码，使用方法来操作窗体。例如，可以使用 Move 方法改变窗体的位置和大小。一种称作 MDI 窗体的特殊窗体还包含 MDI 子窗体。MDI 窗体由“插入”菜单的“添加 MDI 窗体”命令产生；在“文件”菜单中选择“新建窗体”，然后将 MDIChild 属性设置成 True，这样就创建了 MDI 子窗体。在代码中使用 Dim、Set 和 Static 语句里的 New 关键字可以创建多个窗体实例。在设计窗体时，设置 BorderStyle 属性定义窗体的边框，设置 Caption 属性把文本放入标题栏。可以在代码中使用 Hide 和 Show 方法使窗体在运行时可见或不可见。注意 将 BorderStyle 设置为 0 就会删除边框。如果希望窗体有边框而没有标题栏、控制菜单框、最大化按钮和最小化按钮，则应从窗体 Caption 属性中删除任何文本，同时将窗体的 ControlBox、MaxButton 和 MinButton 属性设置为 False。Form 是 Object 数据类型。在将变量设置成一种窗体的实例之前，可以先声明变量的类型为 Form，并在设计时声明这种窗体的实例。与此相似，可以把参数以 Form 类型传给过程。窗体还可以作为 DDE 对话中的资源，通过 Label、PictureBox 或者 TextBox 控件提供数据。可以使用 Controls 集合访问 Form 中的控件集合。例如，可以使用如下代码隐藏 Form 中的控件：For Each Control in Form1.Controls
   Control.Visible = False
Next Control

Answer 1

Forms 集合示例
这个示例把当前所有已加载的窗体的标题填入列表框。Private Sub Form_Activate ()
   Dim I   ' Declare variable.
   ' 重新填充列表(当添加或删除一个实例时)。
   lstForms.Clear   ' Clear list box.
   For I = 0 To Forms.Count - 1
      lstForms.AddItem Forms(I).Caption
   Next I
End Sub

Answer 2

FORMS集合可以标识本工程以外程序的窗体吗？我不太清楚这个啊，

Answer 3

可以使用API函数来查找你想要找的窗体。

Answer 4

private function IsFormLoaded(byval strFormName as string)
dim i as integer
for i=0 to forms.count-1
   if forms(i).name=strFormName then
      IsFormLoaded=true
      exit function
   end if
next i
IsFormLoaded=false
end function