vb.net - 如何获取数组中VB.net(VS08)项目中的所有表单？

Question

好吧，所以我需要一个方法来遍历 Visual Studio 2008 下的 VB.net 项目内的所有表单，并创建一个表单类型的数组，并引用其中的所有表单，以便该数组看起来像这样(伪代码)

FormsArray() = [Form1, Form2, Form3, Form4]

但是，我不知道如何开始。

Answer 1

您必须调整函数以将 msgbox 的结果放入数组中

Public Sub getallforms(ByVal sender As Object)
    Dim Forms As New List(Of Form)()
    Dim formType As Type = Type.GetType("System.Windows.Forms.Form")
    For Each t As Type In sender.GetType().Assembly.GetTypes()
        If UCase(t.BaseType.ToString) = "SYSTEM.WINDOWS.FORMS.FORM" Then
            MsgBox(t.Name)
        End If
    Next
End Sub

您必须从应用程序中的任何表单调用该函数，如下所示 (getallforms(me))