Перечислить все формы в проекте VB.NET, а затем показать их по имени или по имени?

Question

Как создать ссылку на форму, просто по ее имени или .Fullname ..? Это кажется таким простым, но ничего, что я пробовал, будет работать.

Учитывая следующий код, часть в конце - это место, где я застрял.

Спасибо.

Public Class frmLauncher 

Private Sub FormPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly() 
    Dim myTypes() As Type = Nothing 

    ' Both of the following lines seem to do the same thing. 
    ' Is one way better or safer than the other? 
    myTypes = myAssembly.DefinedTypes 
    myTypes = myAssembly.GetTypes 

    For Each t In myTypes 
     If t.BaseType.FullName.ToString.ToUpper = "System.Windows.Forms.Form".ToUpper Then 
      ListBox1.Items.Add(t.Name) 
     End If 
    Next 

End Sub 

Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick 

    Dim frmName As String = ListBox1.Text 

    ' the next line is where I'm totally stuck. 
    Dim frm As Form = GetSomethingUnknown(frmName) 

    frm.Show() 

End Sub 

End Class 

Answer 1

Чтобы создать экземпляр ваших форм первой добавить в свой ListBox свойство FullName, это включает в себя также пространство имен вашего собственного приложения, и требуется найти классы форм с помощью отражения

For Each t In myTypes 
    If t.BaseType.FullName.ToString.ToUpper = "System.Windows.Forms.Form".ToUpper Then 
     ListBox1.Items.Add(t.FullName) 
    End If 
Next 

Теперь код, необходимый для создания экземпляра состоит в следующем

Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick 

    Dim frmName As String = ListBox1.Text 

    Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly() 
    Dim obj = myAssembly.GetType(frmName).InvokeMember(Nothing, Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing) 
    Dim frm As Form = CType(obj, System.Windows.Forms.Form) 
    frm.Show() 
End Sub 

Как вы можете видеть, решающим моментом здесь является call to InvokeMember метод из т ype, идентифицированный вашей переменной frmName. Это сложный метод, который вы должны тщательно изучить, если хотите действительно работать с кодом отражения.