vb.net宿主程序通过统一接口直接调用,命名空间要一致-编程实验室

命名空间不同是导致这个转换失败的核心原因—— 即使接口的方法签名完全一样，只要接口所在的命名空间、程序集不同，CLR 就会将它们视为两个完全不同的接口类型，因此无法强制转换。

核心原理：CLR 识别接口的 “唯一标识”

CLR 判断两个接口是否为 “同一个”，依赖的是“完整限定名 + 程序集标识”：

完整限定名 = 命名空间 + 接口名（比如NamespaceA.Class4接口和NamespaceB.Class4接口是两个不同的名字）；
程序集标识 = 程序集名称、版本、公钥等（即使命名空间相同，宿主的接口在宿主程序集，动态编译的接口在动态程序集，也会被视为不同）。

你遇到的InvalidCastException，本质就是：

动态编译的Class4实现的是「动态程序集」中动态编绎组件.Class4接口，而你宿主程序中要转换的是「宿主程序集」中XXX.Class4接口—— 两个接口毫无关系，自然无法转换。

解决方法（3 种方案，按推荐优先级排序）

方案 1：将接口抽离到独立类库（最优，解耦 + 无兼容问题）

这是工业级解决方案，核心是让「宿主程序」和「动态编译代码」共用同一个接口程序集，从根源上保证接口是 “同一个类型”。

步骤：

创建独立接口类库

新建「类库（.NET Framework）」项目（命名为InterfaceLibrary）；

在类库中定义接口（唯一一份，宿主和动态代码都用它）：

' InterfaceLibrary 项目中的代码 Namespace CommonInterface ' 统一命名空间 Public Interface IClass4 ' 建议用英文命名，避免中文编码问题 Sub MsgBox(Info As String) Function Sum(a As Integer, b As Integer) As Integer Function AddStr(a As String, ByRef b As String) As String End Interface End Namespace

编译生成InterfaceLibrary.dll。

宿主程序引用该类库

在宿主项目中添加对InterfaceLibrary.dll的引用；

宿主中直接使用类库的接口：

Imports CommonInterface ' 引用统一命名空间 ' 后续转换时直接用这个接口 Dim class4Interface As IClass4 = DirectCast(dynamicInstance, IClass4)

动态编译时引用该类库修改动态编译的代码，不再重复定义接口，而是引用InterfaceLibrary.dll并实现类库中的接口：

' 动态编译的代码（核心修改：移除接口定义，引用类库接口） Dim code As String = " Imports CommonInterface ' 引用统一命名空间 Public Class Class4 Implements IClass4 ' 实现类库中的接口 Private Declare Auto Function MyMsgbox Lib ""user32.dll"" Alias ""MessageBox"" (hWnd As Integer, txt As String, caption As String, Typ As Integer) As Integer Public Function Sum(a As Integer, b As Integer) As Integer Implements IClass4.Sum Return a + b End Function Public Function AddStr(a As String, ByRef b As String) As String Implements IClass4.AddStr Dim result As String = a + b b = ""new+"" & b Return result End Function Sub MsgBox(Info As String) Implements IClass4.MsgBox MyMsgbox(0, Info, ""提示"", 0) End Sub End Class " ' 编译参数中添加接口类库的引用（关键！） compilerParams.ReferencedAssemblies.Add("InterfaceLibrary.dll") ' 替换为实际路径

方案 2：动态编译时 “复用宿主程序集的接口”（无需独立类库）

如果不想创建独立类库，可让动态编译代码直接引用「宿主程序集」，并实现宿主程序集中的接口（前提：宿主程序集的接口是Public，且命名空间明确）。

步骤：

宿主程序中定义接口（确保 Public + 明确命名空间）

' 宿主程序中的接口（比如命名空间是 HostApp） Namespace HostApp Public Interface IClass4 Sub MsgBox(Info As String) Function Sum(a As Integer, b As Integer) As Integer Function AddStr(a As String, ByRef b As String) As String End Interface End Namespace

动态编译时引用宿主程序集 + 实现宿主接口

' 动态编译的代码 Dim code As String = " Imports HostApp ' 引用宿主的命名空间 Public Class Class4 Implements IClass4 ' 实现宿主程序集中的接口 ' ... 方法实现和之前一致 ... End Class " ' 编译参数中添加宿主程序集的引用（获取宿主程序集路径） Dim hostAssemblyPath As String = Assembly.GetExecutingAssembly().Location compilerParams.ReferencedAssemblies.Add(hostAssemblyPath)

宿主中直接转换

' 宿主的命名空间下直接转换 Dim class4Interface As HostApp.IClass4 = DirectCast(dynamicInstance, HostApp.IClass4)

⚠️ 缺点：宿主程序集更新后，动态编译代码需同步调整，耦合度高，适合小型项目。

方案 3：通过 “接口映射” 间接调用（兜底方案，无需修改编译逻辑）

如果以上两种方案无法落地（比如无法引用外部类库 / 宿主程序集），可通过反射获取动态实例的方法，封装到宿主接口的实现类中，间接实现 “无 Invoke 调用”。

步骤：

宿主中定义接口（不变）

Public Interface IClass4 Sub MsgBox(Info As String) Function Sum(a As Integer, b As Integer) As Integer Function AddStr(a As String, ByRef b As String) As String End Interface

创建接口封装类（反射调用动态方法，对外暴露宿主接口）

Public Class Class4Wrapper Implements IClass4 Private _dynamicInstance As Object ' 动态编译的实例 Private _type As Type ' 动态实例的Type Public Sub New(dynamicInstance As Object) _dynamicInstance = dynamicInstance _type = dynamicInstance.GetType() End Sub ' 封装MsgBox方法 Public Sub MsgBox(Info As String) Implements IClass4.MsgBox Dim method = _type.GetMethod("MsgBox") method.Invoke(_dynamicInstance, {Info}) End Sub ' 封装Sum方法 Public Function Sum(a As Integer, b As Integer) As Integer Implements IClass4.Sum Dim method = _type.GetMethod("Sum") Return CInt(method.Invoke(_dynamicInstance, {a, b})) End Function ' 封装AddStr方法（重点处理ByRef参数） Public Function AddStr(a As String, ByRef b As String) As String Implements IClass4.AddStr Dim method = _type.GetMethod("AddStr") Dim params As Object() = {a, b} ' ByRef参数需先放入数组 Dim result = method.Invoke(_dynamicInstance, params) b = CStr(params(1)) ' 同步ByRef参数的修改 Return CStr(result) End Function End Class

宿主中使用封装类

' 动态创建实例后，用封装类包装 Dim dynamicInstance As Object = Activator.CreateInstance(class4Type) Dim class4Interface As IClass4 = New Class4Wrapper(dynamicInstance) ' 直接调用接口方法（内部封装了反射，外部无感知） class4Interface.MsgBox("测试") Dim sum = class4Interface.Sum(1,2)

⚠️ 缺点：需要手动封装每个方法，新增 / 修改接口方法时需同步更新封装类，适合接口固定的场景。