如何遍历一个工程中的所有窗体？

Question

请问，如何在一个vb工程中，遍历本工程中的所有窗体，访问本工程中的所有form对象？

Answer 1

不可能的，一个窗体可能加载不止一个实例，也可能没有加载如果是遍历已加载窗体实例dim I as integer
For I = Forms.Count - 1 To 0 step -1
    Debug.Print Forms(I).Name
Next

Answer 2

dim a
for each a in forms
debug.print a.name
next

Answer 3

不可能的，一个窗体可能加载不止一个实例，也可能没有加载如果是遍历已加载窗体实例dim I as integer
For I = Forms.Count - 1 To 0 step -1
    Debug.Print Forms(I).Name
Next

Answer 4

//本工程中的所有form对象
没有这个概念，对象是已加载的类的实例，只能是某个时刻，加载到内存的所有form对象，包括已经显示的，和隐藏的(Visible=False或Hide方法或使用一个未加载窗体的属性会导致窗体自动加载，但不可见)

Answer 5

控件遍历：
Option ExplicitPrivate Sub Form_Load()
        Dim xx As Control
        For Each xx In Me.Controls
            debug.print xx.name
        Next
End Sub