VB6中使用VB.NET（VS2010）DLL的WithEvents问题求助

我太懂这种“翻遍资料却没摸到门道”的憋屈感了——明明解决方案就在眼前，就是当局者迷没认出来！针对你用VS2010写的VB.NET DLL要在VB6里实现WithEvents的问题，我给你拆解几个核心步骤，都是实际落地验证过的：

COM事件的规则和.NET原生事件不一样，必须用显式接口来定义事件契约，不能直接在类里随便声明事件。具体要注意这几点：

• 给接口和类加上<ComVisible(True)>标记，确保COM能识别
• 事件接口要指定InterfaceType(ComInterfaceType.InterfaceIsIDispatch)，VB6依赖这个接口来订阅事件
• 用ComSourceInterfaces特性告诉COM哪个接口是事件源

给你个现成的代码示例：

Imports System.Runtime.InteropServices

' 第一步：定义COM可见的事件接口
<ComVisible(True)>
<InterfaceType(ComInterfaceType.InterfaceIsIDispatch)>
Public Interface IMyDllEvents
    ' 事件方法的参数要用VB6支持的类型（别用.NET特有的Nullable、泛型）
    Sub TaskCompleted(ByVal result As String, ByVal success As Boolean)
End Interface

' 第二步：定义DLL对外提供的业务接口
<ComVisible(True)>
<InterfaceType(ComInterfaceType.InterfaceIsDual)>
Public Interface IMyDllService
    Sub StartLongTask()
End Interface

' 第三步：实现业务类，绑定事件源
<ComVisible(True)>
<ClassInterface(ClassInterfaceType.None)>
<ComSourceInterfaces(GetType(IMyDllEvents))> ' 关键：指定事件来源接口
Public Class MyDllService
    Implements IMyDllService

    ' 声明事件，必须和事件接口的签名完全匹配
    Public Event TaskCompleted(ByVal result As String, ByVal success As Boolean) Implements IMyDllEvents.TaskCompleted

    Public Sub StartLongTask() Implements IMyDllService.StartLongTask
        ' 模拟耗时操作后触发事件
        System.Threading.Thread.Sleep(2000)
        RaiseEvent TaskCompleted("任务执行完毕", True)
    End Sub
End Class

1. 右键VB.NET项目 → 属性 → 应用程序 → 程序集信息：勾选使程序集COM可见
2. 编译选项：勾选为COM互操作注册（开发调试时用这个很方便，发布后可以用regasm.exe手动注册）
3. 目标框架选.NET Framework 4.0（VS2010默认支持，和VB6兼容性最好）

VB6里用WithEvents有个硬性要求：必须是模块级变量（局部变量不支持事件订阅），具体写法：

' 必须在窗体/模块的顶部声明模块级变量
Private WithEvents dllService As MyDllService

Private Sub Form_Load()
    ' 实例化对象
    Set dllService = New MyDllService
End Sub

' 事件处理方法（输入对象名+下划线，VB6会自动弹出可选事件列表）
Private Sub dllService_TaskCompleted(ByVal result As String, ByVal success As Boolean)
    MsgBox "收到事件通知：" & result & vbCrLf & "状态：" & IIf(success, "成功", "失败")
End Sub

Private Sub cmdStart_Click()
    ' 调用方法触发事件
    dllService.StartLongTask
End Sub

• 如果VB6里看不到事件：检查事件接口是否标记了InterfaceType(ComInterfaceType.InterfaceIsIDispatch)，COM事件完全依赖这个接口
• 注册失败：手动用管理员权限运行regasm.exe /codebase 你的DLL路径.dll，VS2010的regasm一般在C:\Windows\Microsoft.NET\Framework\v4.0.30319目录下
• 参数报错：绝对不要用.NET特有的类型（比如StringBuilder、自定义泛型），全部换成VB6原生支持的类型（String、Integer、Boolean等）

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