两个相同的Form1隐藏窗体，根据其窗体之Caption名来(.Show)显示窗体？
在一个工程中，有两个Form1窗体同时打开且被隐藏了．．
因为两窗体的名称都是Form1，不能光Form1.Show!!
现要根据Form1窗体的Caption属性名来显示其窗体．（注：两个都为Form1的Caption名不同)

望能得到解决．．

[ 本帖最后由 xzqsml 于 2009-12-23 08:52 编辑 ]

Dim i As Long
For i = 1 To Forms.Count - 1
    If Forms(i).Caption = "窗体名字" Then
        Forms(i).Show
    End If
Next i

把所有名字为 窗体名字 的窗体显示出来。
我的测试代码如下：

Option Explicit

Private Sub Command1_Click()
'加载二个隐藏窗体
Dim fr As Form1

Set fr = New Form1
fr.Caption = "F1"
fr.Hide

Set fr = New Form1
fr.Caption = "F2"
fr.Hide

End Sub

Private Sub Command2_Click()
'显示F1窗体
Dim i As Long
For i = 1 To Forms.Count - 1
    If Forms(i).Caption = "F1" Then
        Forms(i).Show
    End If
Next i

End Sub