VB.NET -如何将大量事件添加到单个句柄？

Imports System

Public Class EventPublisher
    ' 定义一个委托类型
    Public Delegate Sub MyEventHandler(ByVal sender As Object, ByVal e As EventArgs)

    ' 定义一个事件
    Public Event MyEvent As MyEventHandler

    ' 触发事件的方法
    Public Sub RaiseEvent()
        ' 检查事件是否有订阅者
        If MyEvent IsNot Nothing Then
            ' 创建一个事件参数对象
            Dim args As New EventArgs()

            ' 调用委托，触发事件
            MyEvent.Invoke(Me, args)
        End If
    End Sub
End Class

Public Class EventSubscriber
    ' 事件处理方法
    Public Sub HandleEvent(ByVal sender As Object, ByVal e As EventArgs)
        ' 处理事件的逻辑
        Console.WriteLine("Event handled by EventSubscriber")
    End Sub
End Class

Module Module1
    Sub Main()
        ' 创建事件发布者和订阅者对象
        Dim publisher As New EventPublisher()
        Dim subscriber As New EventSubscriber()

        ' 将订阅者的方法添加到事件的句柄中
        AddHandler publisher.MyEvent, AddressOf subscriber.HandleEvent

        ' 触发事件
        publisher.RaiseEvent()

        ' 输出：Event handled by EventSubscriber
    End Sub
End Module