VBA中带接口与事件的自定义类集合的事件处理方案问询

问题背景 #

自定义类clsModule支持嵌套结构：每个实例可包含多个其他clsModule实例的集合，要求子实例触发的事件由持有它的父实例处理。但VBA中仅能通过WithEvents显式定义对象变量来注册事件，无法直接处理数量可变的子实例事件。当前子实例已能正确触发notify事件，但父实例无法捕获并处理该事件。

现有核心代码 #

clsModule类 #

Option Explicit

Private WithEvents sheet_ As Worksheet
Private Type tThis
  events As IModuleEvents ' 伪接口类
  modules As Collection ' 存储子clsModule实例
End Type
Private this As tThis

Private Sub Class_Initialize()
  Set this.events = New IModuleEvents
End Sub

Public Function constructor(wks As Worksheet, _
  Optional modules As Collection)
  Set sheet_ = wks
  Set this.modules = modules
End Function

Private Sub sheet__Change(ByVal target As Range)
  notify "changed"
End Sub

Private Function notify(message As String)
  this.events.notify Me, message
End Function

IModuleEvents类 #

Option Explicit

Public Event notify(ByRef module As clsModule, message As String)

Public Function notify(ByRef module As clsModule, message As String)
    RaiseEvent notify(module, message)
End Function

标准模块Module1 #

Option Explicit

Private source As clsModule
Private target As clsModule

Private Function test()
  Set source = New clsModule
  source.constructor ActiveWorkbook.Worksheets(1)
  
  Set target = New clsModule
  target.constructor ActiveWorkbook.Worksheets(2), _
   newCollection(Array(source))
End Function

Private Function newCollection(items) As Collection
  Dim v, c As New Collection
  For Each v In items
    c.Add v
  Next
  Set newCollection = c
End Function

解决方案：事件代理类实现 #

通过创建事件代理类作为中间层，为每个子实例绑定代理，代理监听子实例事件并转发给父实例，解决可变数量子实例的事件处理问题。

步骤1：创建事件代理类clsModuleEventProxy #

Option Explicit

Private WithEvents childEvents As IModuleEvents
Private parentModule As clsModule

' 初始化代理：绑定子实例事件与父实例
Public Sub Initialize(child As clsModule, parent As clsModule)
    Set childEvents = child.Events
    Set parentModule = parent
End Sub

' 监听子实例的notify事件，转发给父实例处理
Private Sub childEvents_notify(ByRef module As clsModule, message As String)
    parentModule.HandleChildNotification module, message
End Sub

步骤2：修改clsModule类 #

1. 扩展内部结构，添加代理集合

Private Type tThis
  events As IModuleEvents
  modules As Collection
  eventProxies As Collection ' 新增：存储子实例的事件代理
End Type

2. 初始化代理集合

Private Sub Class_Initialize()
  Set this.events = New IModuleEvents
  Set this.eventProxies = New Collection ' 初始化代理集合
End Sub

3. 暴露events属性供代理访问

Public Property Get Events() As IModuleEvents
    Set Events = this.events
End Property

4. 修改构造函数，为子实例创建代理

Public Function constructor(wks As Worksheet, _
  Optional modules As Collection)

  Dim modInstance As clsModule
  Dim proxy As clsModuleEventProxy
  
  Set sheet_ = wks
  
  If Not modules Is Nothing Then
    Set this.modules = modules
    ' 为每个子实例创建并初始化事件代理
    For Each modInstance In this.modules
        Set proxy = New clsModuleEventProxy
        proxy.Initialize modInstance, Me
        this.eventProxies.Add proxy
    Next
  End If

End Function

5. 添加父实例的事件处理方法

' 处理子实例转发的事件
Public Sub HandleChildNotification(ByRef module As clsModule, message As String)
    ' 这里编写实际的业务处理逻辑，示例为打印调试信息
    Debug.Print "父实例[" & sheet_.Name & "]收到子实例[" & module.sheet_.Name & "]通知：" & message
End Sub

测试验证 #

运行Module1中的test方法，修改source对应的工作表单元格，即可在立即窗口看到父实例target输出的事件处理信息。

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