.NET 8通过COM向VB6暴露组件的问题及解决方法

背景 #

我们维护一个大型应用，GUI层大量基于VB6开发，核心逻辑原本封装在.NET Framework 4.7.2类库中。现在计划将核心逻辑迁移至.NET 8，但通过COM向VB6暴露类库时遇到两个关键问题：

• 使用Set oObject = New COMObject无法正常实例化对象，VB6对象浏览器中该类显示为空
• .NET类的事件无法被VB6捕获

这两个问题均与[ClassInterface(ClassInterfaceType.AutoDual)]特性的使用直接相关。我们采用dscom32工具（tlbexport/tlbregister）完成COM注册，且清楚CA1408规则要求。约束条件为：不大量改写VB6代码（避免引入类型不安全问题）、不新增.NET Framework 4.7.2中间层。

解决方案（基于Seva Alekseyev方案修改） #

.NET 8 实现代码 #

通过显式定义事件接口、业务接口，配合正确的COM特性标记，解决实例化与事件暴露问题：

using System;
using System.Runtime.InteropServices;

// 事件接口：必须标记为InterfaceIsIDispatch，支持VB6的事件绑定
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IComObjectEvents
{
    [DispId(1)]
    void OnSampleEvent(string message);
}

// 业务接口：使用InterfaceIsDual支持VB6早期绑定，保证原有调用逻辑兼容
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface IComObject
{
    [DispId(1)]
    void DoWork(string input);
}

// 实现类：禁用自动生成的类接口，关联事件源接口
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)] // 规避CA1408警告，强制通过显式接口访问
[ComSourceInterfaces(typeof(IComObjectEvents))] // 指定事件源接口
public class ComObject : IComObject
{
    // 声明与事件接口匹配的事件
    public event Action<string> OnSampleEvent;

    public void DoWork(string input)
    {
        // 触发事件
        OnSampleEvent?.Invoke($"Processed: {input}");
    }
}

VB6 调用代码 #

无需大量修改原有VB6代码，即可正常实例化对象并捕获事件：

Private WithEvents oComObject As ComObject

Private Sub Command1_Click()
    ' 正常实例化对象，与原有VB6调用逻辑一致
    Set oComObject = New ComObject
    oComObject.DoWork "VB6 Test Input"
End Sub

Private Sub oComObject_OnSampleEvent(ByVal message As String)
    ' 捕获并处理.NET类触发的事件
    MsgBox "Received event: " & message
End Sub

关键说明 #

1. 禁用自动类接口：使用[ClassInterface(ClassInterfaceType.None)]避免CA1408冲突，同时强制VB6通过显式定义的IComObject接口访问类成员，保证类型安全。
2. 显式事件接口：必须定义标记为InterfaceIsIDispatch的事件接口，并通过[ComSourceInterfaces]关联到实现类，确保VB6能正确识别并绑定事件。
3. 业务接口兼容早期绑定：IComObject标记为InterfaceIsDual，支持VB6的早期绑定特性，无需修改原有VB6代码的实例化、方法调用逻辑。

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