运行时取设计时工程中的所有窗体标题名。。。

[chanchaw]

我想在程序运行时取出该工程中设计时的所有窗体的名称和标题。小弟不懂怎么弄。。

[Kimm2009]

所有的窗体都在forms中间，使用时forms(i)

[jyyq6]

for echo forms

[chanchaw]

我是这样做的


Dim i As Long

For i = 0 To 1
MsgBox Forms(i).Name
Next


一共两个窗体。第一个窗体可以显示出name，第二个窗体就说下标越界

怎么回事？

还有楼上的for echo forms
是怎么用？ for each form In ???

[jyyq6]

抱歉，我的办公机器上没装MSDN^_^。应该是这样的：

这个示例把当前所有已加载的窗体的标题填入列表框。

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

[smalle]

所有窗口必须加载了才可以使用forms读取。

[chanchaw]

那么我想加载MID窗体时候通过DEBUG打出工程中所有窗体的NAME就不行么？还有没有别的什么方法了？