VB.NET中能否基于参数动态声明与实例化对象？

当然可以搞定！在VB.NET里，完全不用逐个手动声明对象，咱们可以基于参数动态创建实例，我给你分享几个实用的变通方案：

如果你的对象类型是完全动态的（比如从配置文件、数据库或者用户输入获取类型名称），反射是最直接的方式。前提是这些类型最好实现同一个接口或继承自同一个基类，方便后续统一调用方法。

先定义公共接口和示例类：

Public Interface IMyInterface
    Sub DoSomething()
End Interface

Public Class ClassA
    Implements IMyInterface
    Public Sub DoSomething() Implements IMyInterface.DoSomething
        Console.WriteLine("ClassA 执行操作")
    End Sub
End Class

Public Class ClassB
    Implements IMyInterface
    Public Sub DoSomething() Implements IMyInterface.DoSomething
        Console.WriteLine("ClassB 执行操作")
    End Sub
End Class

然后写动态创建实例的方法：

Public Function CreateInstanceByTypeName(typeName As String) As IMyInterface
    ' 注意：typeName需要包含完整命名空间，比如"MyProject.ClassA"
    Dim targetType = Type.GetType(typeName)
    If targetType Is Nothing Then
        Throw New ArgumentException($"找不到指定类型：{typeName}")
    End If
    ' 创建实例并转换为接口类型
    Return DirectCast(Activator.CreateInstance(targetType), IMyInterface)
End Function

使用示例：

' 从参数获取类型名，动态创建
Dim objA = CreateInstanceByTypeName("MyProject.ClassA")
objA.DoSomething() ' 输出：ClassA 执行操作

Dim objB = CreateInstanceByTypeName("MyProject.ClassB")
objB.DoSomething() ' 输出：ClassB 执行操作

如果你的类型是已知的，只是想减少重复的实例化代码，泛型是更好的选择——它比反射更安全，性能也更高。

先写泛型实例化方法：

' 泛型约束：T必须有无参构造函数
Public Function CreateInstance(Of T As {New})() As T
    Return New T()
End Function

直接使用（类型安全）：

Dim objA = CreateInstance(Of ClassA)()
objA.DoSomething()

如果需要基于字符串参数动态指定泛型类型，结合一点反射即可：

Dim typeName = "MyProject.ClassA"
Dim targetType = Type.GetType(typeName)
' 获取泛型方法并生成具体类型的方法
Dim genericMethod = GetType(YourCurrentClass).GetMethod("CreateInstance").MakeGenericMethod(targetType)
' 调用方法创建实例
Dim obj = genericMethod.Invoke(Nothing, Nothing)
DirectCast(obj, IMyInterface).DoSomething()

如果你的对象类型列表是相对固定的，工厂模式会更清晰，完全避免反射的开销，还能保证类型安全。

先定义枚举标记类型：

Public Enum ObjectType
    ClassA
    ClassB
End Enum

然后写工厂类：

Public Class ObjectFactory
    Public Shared Function CreateObject(type As ObjectType) As IMyInterface
        Select Case type
            Case ObjectType.ClassA
                Return New ClassA()
            Case ObjectType.ClassB
                Return New ClassB()
            Case Else
                Throw New ArgumentOutOfRangeException(nameof(type), "不支持的对象类型")
        End Select
    End Function
End Class

使用示例：

' 基于枚举参数创建对象
Dim obj = ObjectFactory.CreateObject(ObjectType.ClassA)
obj.DoSomething()

你可能会疑惑“怎么动态声明对象名”——其实VB.NET不允许直接用变量名作为对象标识符，但我们可以用集合（比如Dictionary）来存储这些动态创建的对象，通过键来访问：

Dim dynamicObjects As New Dictionary(Of String, IMyInterface)()

' 动态添加对象到集合
dynamicObjects.Add("userObjA", CreateInstanceByTypeName("MyProject.ClassA"))
dynamicObjects.Add("userObjB", CreateInstanceByTypeName("MyProject.ClassB"))

' 通过键调用对象方法
dynamicObjects("userObjA").DoSomething()

根据你的场景选择合适的方案就好：如果类型完全动态选反射；想兼顾安全和灵活选泛型；类型固定就用工厂模式。

内容的提问来源于stack exchange，提问作者ThomasRones