我可以将类引用作为参数传递给 VB Net 中的函数吗？

Question

如果我使用了不当的术语或听起来像个菜鸟，请原谅我。

在类库中调用 sub 时，我想传递的不是实例化的表单，而只是对代表表单的类的引用。然后我想从类库函数中实例化表单。这可能吗？

类似于以下内容：

在主应用程序中：

ClassLib.MyClass.DisplayForm(GetType(Form1))

然后，在类库中：

Public Class MyClass

    Public Shared Sub DisplayForm(WhichFormClass As Type)
        Dim MyForm as Form = WhichFormClass.CreateObject() 'Getting imaginitive
        MyForm.ShowDialog()
    End Sub

End Class

希望我的示例传达了我想要完成的任务。如果您认为我的方法是虚假的，我对替代策略持开放态度。

Answer 1

试试

Dim classType As Type = GetType(Form1)

然后调用方法：

DisplayForm(classType)

然后您可以使用此类型信息和反射在运行时在 DisplayForm 方法中创建实例：

Activator.CreateInstance(classType)

请注意，这是一个简单的示例，不执行错误检查等。您应该阅读更多关于反射的内容，以确保您处理任何潜在问题。

编辑 1：

简单示例：

Public Class MyClass

    Public Shared Sub DisplayForm(ByVal formType As Type)
        Dim form As Form = DirectCast(Activator.CreateInstance(formType), Form)
        form.ShowDialog()
    End Sub

End Class

你使用的方法是：

Dim formType As Type = GetType(Form1)
MyClass.DisplayForm(formType)

同样，最好在所有这些中执行一些错误检查。

Answer 2

除了 MotoSV 的回答，这里是一个只使用泛型的版本：

Public Shared Sub DisplayForm(Of T As {New, Form})()
    Dim instance = New T()
    instance.ShowDialog()
End Sub

你可以像这样使用：

DisplayForm(Of Form1)()

通过这种方法，您可以确定传递的类型是一个表单，并且该实例具有ShowDialog() 方法。没有必要的演员最终可能会失败。但是，需要在设计时知道类型参数才能调用该方法。