VB.Net如何通过类名动态创建实现IMyClass接口的类实例

嗨，这个需求我太熟悉了！不用写冗长的Select Case，用.NET的反射机制就能完美实现类似VB6里CreateObject的功能，而且适配你所有实现了IMyClass接口的类。下面给你一步步拆解解决方案：

核心思路 #

利用反射API通过类的完全限定名（包含命名空间）查找对应的类型，然后动态创建实例，最后转换为你定义的IMyClass接口类型，这样就能统一调用接口方法了。

前置条件 #

• 所有目标类必须是Public访问级别，并且要有无参数的公共构造函数（如果没手动写，VB会自动生成默认的无参构造）；
• 所有类必须正确实现IMyClass接口。

代码实现 #

1. 接口与示例类（你已有这些，这里仅作参考） #

' 你的接口定义
Public Interface IMyClass
    Sub DoSomething() ' 示例接口方法
End Interface

' 命名空间下的目标类示例
Namespace Bob
    Public Class Foo
        Implements IMyClass

        Public Sub New()
            ' 无参构造函数（可省略，VB自动生成）
        End Sub

        Public Sub DoSomething() Implements IMyClass.DoSomething
            Console.WriteLine("Foo执行了DoSomething")
        End Sub
    End Class

    Public Class Baz
        Implements IMyClass

        Public Sub New()
        End Sub

        Public Sub DoSomething() Implements IMyClass.DoSomething
            Console.WriteLine("Baz执行了DoSomething")
        End Sub
    End Class
End Namespace

2. 通用实例创建函数 #

Imports System.Reflection

Public Function CreateAnInstanceOfThisClass(cClassName As String) As IMyClass
    Try
        ' 第一步：根据类名查找类型
        Dim targetType As Type = Type.GetType(cClassName)
        
        ' 如果当前程序集找不到，遍历所有已加载的程序集查找
        If targetType Is Nothing Then
            For Each asm As Assembly In AppDomain.CurrentDomain.GetAssemblies()
                targetType = asm.GetType(cClassName)
                If targetType IsNot Nothing Then Exit For
            Next
        End If

        ' 找不到类型的情况
        If targetType Is Nothing Then
            Throw New ArgumentException($"无法找到类：{cClassName}")
        End If

        ' 检查该类是否实现了IMyClass接口
        If Not GetType(IMyClass).IsAssignableFrom(targetType) Then
            Throw New InvalidCastException($"类 {cClassName} 未实现IMyClass接口，无法转换为目标类型")
        End If

        ' 第二步：创建实例并转换为IMyClass
        Return DirectCast(Activator.CreateInstance(targetType), IMyClass)
    Catch ex As Exception
        ' 这里可以根据业务需求处理异常，比如返回Nothing或自定义异常
        Console.WriteLine($"创建实例失败：{ex.Message}")
        Return Nothing
    End Try
End Function

3. 使用示例 #

' 从数据库获取类名字符串（示例）
Dim classNameFromDb As String = "Bob.Foo"
Dim myInstance As IMyClass = CreateAnInstanceOfThisClass(classNameFromDb)

If myInstance IsNot Nothing Then
    ' 调用接口方法
    myInstance.DoSomething()
End If

注意事项 #

• 类名准确性：必须传入类的完全限定名（包含命名空间），如果类在其他独立程序集中，还要加上程序集名称，格式为命名空间.类名, 程序集名称，比如Bob.Foo, MyCustomAssembly；
• 构造函数问题：如果目标类只有带参数的构造函数，可以使用Activator.CreateInstance(targetType, 参数列表)的重载版本来创建实例；
• 性能优化：如果频繁调用这个函数，建议缓存Type对象，避免每次都遍历程序集查找类型，提升执行效率；
• 安全性：如果类名字符串来自不可信的外部输入，要做合法性校验，防止恶意类型被实例化带来安全风险。

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