Question

我试图找到一种方法来使用name在visual basic（VS 2013）中声明窗体。即我在申请表中有Form1。截至目前，我使用

  Private Sub BBB ()
  dim f1 as New Form1
  Call AAA (f1) 
  End Sub

我想做的是：

Private Sub BBB (formname as string)
Dim f1 as New Form
f1.Name = formname
Call AAA (f1)
End Sub

但这不起作用。

Answer 1

我发现这个解决方案有效。可能不是最有效的，但它现在会做的

  Private Sub BBB (formname as string)
      For Each t As Type In Me.GetType().Assembly.GetTypes()
        If UCase(t.BaseType.ToString) = "SYSTEM.WINDOWS.FORMS.FORM" Then
            If t.Name.Equals(formname) Then
                Dim f As New Form
                f = System.Activator.CreateInstance(t)
            End If
        End If
    Next

 Call aaa(f)
 End Sub

如何按名称声明可视化基本窗体

1 个答案: