对象的实例化，其类型作为参数传递

Question

我有一个必须实例化Form的事件：

   Private Sub ParametresEtablissement(ByRef frmmain As Form, ByRef frmparametablissement As Form, ByRef OpenedForms As FormCollection, ByVal TypeOfFrmEtablissement As Type)
            If (frmparametablissement Is Nothing) Then
                frmparametablissement = New TypeOfFrmEtablissement
                frmparametablissement.MdiParent = frmmain
                frmparametablissement.Show()
            Else
End Sub

但是我在这一行有一个错误：

 frmparametablissement = New TypeOfFrmEtablissement

错误是Type TypeOfFrmEtablissement is not defined

所以我需要知道：

1. 此错误的原因是什么？
2. 我该如何解决？

Answer 1

什么是TypeOfFrmEtablissement ？ 它有默认构造函数吗？

您可能需要查看Activator.CreateInstance 。 您可以传入一个对象类型作为参数，它将使用该类型的默认构造函数返回一个实例。

Dim instance As IExample = DirectCast(Activator.CreateInstance(theType), IExample)

您也可以查看用于创建对象的泛型 ，但是我认为这对于您的要求而言是过大的。

Public Function f(Of T)() As T
    Dim tmp As T = GetType(T).GetConstructor(New System.Type() {}).Invoke(New Object() {})
    Return tmp
End Function

更新遵循Lamloumi的评论 ：

我创建了一个新项目，添加了一个新表单（Form2），并从Form1构造函数中调用了它，并且创建并显示了Form2的新实例。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim frmparametablissement As Form = CreateFormInstance(Form2)
    frmparametablissement.Show()
End Sub

Private Function CreateFormInstance(Of T As Form)(type As T) As T
    Return Activator.CreateInstance(GetType(T))
End Function