无需WithEvents，如何监听任意VBA类的所有事件？

核心问题分析 #

VBA自定义类的事件发布机制和Office内置COM对象存在差异：内置对象通常会显式实现IConnectionPointContainer并暴露标准事件源接口，但VBA类的双接口默认不会主动对外暴露连接点容器，需要通过类型信息解析+手动接口查询的方式获取事件连接点。

具体实现步骤 #

1. 解析VBA类的事件源接口IID #

VBA自定义类的事件源接口（通常命名为_类名，比如_SimpleEventSource）不会在系统注册表中注册，需通过ITypeInfo获取其IID：

• 从VBA类的IDispatch接口调用GetTypeInfo获取类型信息实例
• 读取TYPEATTR结构体的tdescImplTypes字段，拿到类实现的第一个接口（即事件源接口）的IID

2. 手动获取事件连接点 #

绕过标准的IConnectionPointContainer::FindConnectionPoint调用，直接通过两次QueryInterface获取连接点：

• 用解析得到的事件源IID对VBA类对象调用QueryInterface，得到事件源接口实例
• 再对事件源接口实例调用QueryInterface请求IConnectionPoint接口，拿到对应的连接点对象

3. 适配VBA事件的Invoke逻辑 #

VBA事件的参数传递和DISPID规则有自身特点，需调整OmniEventListener的IDispatch::Invoke实现：

• 处理DISPPARAMS时注意参数顺序：VBA事件参数为正向传递，无需反转
• 通过ITypeInfo::GetNames方法，根据DISPID动态获取事件名称，避免硬编码dispid=1对应的事件名

4. twinBASIC代码示例 #

' 定义必要的COM接口结构体（需提前在twinBASIC中声明）
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Type TYPEATTR
    guid As GUID
    lcid As Long
    dwReserved As Long
    memidConstructor As Long
    memidDestructor As Long
    lpstrSchema As Long
    cbSizeInstance As Long
    typekind As Integer
    cFuncs As Integer
    cVars As Integer
    cImplTypes As Integer
    cbSizeVft As Integer
    cbAlignment As Integer
    wTypeFlags As Integer
    wMajorVerNum As Integer
    wMinorVerNum As Integer
    tdescAlias As TYPEDESC
    idldescType As IDLDESC
    tdescImplTypes As TYPEDESC
End Type

Private Type TYPEDESC
    vt As Integer
    union As TYPEDESC_UNION
End Type

Private Type TYPEDESC_UNION
    lptdesc As Long
    pdescAlias As Long
    hreftype As Long
End Type

' 获取VBA类的事件源接口IID
Private Function GetVBASourceIID(ByVal pDispatch As IDispatch) As GUID
    Dim pTypeInfo As ITypeInfo
    Dim pTypeAttr As TYPEATTR
    Dim tdescImpl As TYPEDESC
    
    pDispatch.GetTypeInfo 0, 0, pTypeInfo
    pTypeInfo.GetTypeAttr pTypeAttr
    tdescImpl = pTypeAttr.tdescImplTypes
    GetVBASourceIID = tdescImpl.union.hreftype
    
    pTypeInfo.ReleaseTypeAttr pTypeAttr
    pTypeInfo.Release
End Function

' 建立与VBA类事件的连接
Public Sub HookVBAEvents(ByVal obj As Object, ByVal listener As OmniEventListener)
    Dim pSource As IUnknown
    Dim pConnectionPoint As IConnectionPoint
    Dim sourceIID As GUID
    Dim cookie As Long
    
    sourceIID = GetVBASourceIID(obj)
    obj.QueryInterface sourceIID, pSource
    pSource.QueryInterface IID_IConnectionPoint, pConnectionPoint
    
    pConnectionPoint.Advise listener, cookie
    listener.Cookie = cookie
    listener.ConnectionPoint = pConnectionPoint
    
    pSource.Release
End Sub

关键注意事项 #

• VBA自定义类必须设置为PublicNotCreatable或MultiUse，否则外部无法通过COM访问其事件源接口
• 确保在twinBASIC中正确声明所有依赖的COM接口和结构体，避免类型不匹配
• 监听结束后必须调用IConnectionPoint::Unadvise释放连接，防止内存泄漏

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