VBA中如何响应子类多实例事件并触发父类新事件？

这个问题在VBA里挺常见的——因为VBA不支持直接对数组中的对象使用WithEvents关键字来捕获事件，不过我们有两种可行的解决方案，取决于你的子对象数量是固定还是动态的。

首先先确认你的clsChild类代码是完整且正确的：

' clsChild 类模块代码
Private V#
Public Event Change()

Public Property Get Value() As Double
    Value = V
End Property

Public Property Let Value(inp As Double)
    V = inp
    RaiseEvent Change
End Property

方案1：固定数量的子对象（比如你示例中的3个） #

如果你的父类里子对象数量是固定的，直接在clsParent中用多个带WithEvents声明的变量即可，不用数组：

' clsParent 类模块代码
Private WithEvents Child1 As clsChild
Private WithEvents Child2 As clsChild
Private WithEvents Child3 As clsChild

Public Event ParentChange()

Private Sub Class_Initialize()
    ' 初始化3个子对象
    Set Child1 = New clsChild
    Set Child2 = New clsChild
    Set Child3 = New clsChild
End Sub

' 每个子对象的Change事件处理逻辑：触发父类的ParentChange
Private Sub Child1_Change()
    RaiseEvent ParentChange
End Sub

Private Sub Child2_Change()
    RaiseEvent ParentChange
End Sub

Private Sub Child3_Change()
    RaiseEvent ParentChange
End Sub

' 可选：提供外部访问子对象的属性
Public Property Get Child(ByVal index As Integer) As clsChild
    Select Case index
        Case 1: Set Child = Child1
        Case 2: Set Child = Child2
        Case 3: Set Child = Child3
        Case Else: Err.Raise vbObjectError + 1001, , "无效的子对象索引"
    End Select
End Property

这样，只要任何一个子对象的Value属性被修改，就会触发它的Change事件，进而触发父类的ParentChange事件。

方案2：动态数量的子对象（支持添加/删除） #

如果子对象数量是动态变化的，我们需要创建一个包装类来中转单个子对象的事件，再让父类监听包装类的事件。

步骤1：创建包装类clsChildWrapper #

这个类的作用是监听单个clsChild的Change事件，然后通知父类：

' clsChildWrapper 类模块代码
Private WithEvents mChild As clsChild
Private mParent As clsParent

' 设置父类引用，用于事件通知
Public Property Set Parent(newParent As clsParent)
    Set mParent = newParent
End Property

' 暴露内部的子对象
Public Property Get Child() As clsChild
    Set Child = mChild
End Property

Public Property Set Child(newChild As clsChild)
    Set mChild = newChild
End Property

' 捕获子对象的Change事件，通知父类
Private Sub mChild_Change()
    If Not mParent Is Nothing Then
        mParent.RaiseParentChange
    End If
End Sub

步骤2：修改clsParent类，使用包装类集合 #

父类维护一个包装类的集合，负责添加子对象并接收包装类的通知：

' clsParent 类模块代码
Private mChildren As Collection
Public Event ParentChange()

Private Sub Class_Initialize()
    Set mChildren = New Collection
    ' 初始化3个子对象（示例）
    AddNewChild
    AddNewChild
    AddNewChild
End Sub

Private Sub Class_Terminate()
    Set mChildren = Nothing
End Sub

' 添加新的子对象到集合
Public Sub AddNewChild()
    Dim wrapper As clsChildWrapper
    Set wrapper = New clsChildWrapper
    
    Set wrapper.Child = New clsChild
    Set wrapper.Parent = Me ' 绑定父类引用
    mChildren.Add wrapper
End Sub

' 供包装类调用的内部方法，触发父类事件
Friend Sub RaiseParentChange()
    RaiseEvent ParentChange
End Sub

' 访问指定索引的子对象
Public Property Get Child(ByVal index As Integer) As clsChild
    Set Child = mChildren(index).Child
End Property

' 获取当前子对象数量
Public Property Get ChildCount() As Integer
    ChildCount = mChildren.Count
End Property

测试代码 #

在标准模块中写一段测试代码验证效果：

Sub TestParentChildEvents()
    Dim testParent As clsParent
    Set testParent = New clsParent

    ' 修改子对象的值，触发事件链
    testParent.Child(1).Value = 10
    testParent.Child(2).Value = 20
End Sub

' 捕获父类的ParentChange事件
Private Sub testParent_ParentChange()
    MsgBox "ParentChange事件触发！有子对象的值被修改了。"
End Sub

运行这段代码，每次修改子对象的Value，都会弹出消息框，说明父类的事件成功触发。

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