从一个类中找出另一个类中是否存在事件处理程序

Question

一个 VB.NET 4 问题。

假设存在一个包含事件 E 的类 A。在另一个类 (B) 中，声明了 A 类型的变量 WithEvents。在使用 A 的代码的某个时间点，将会有一个“RaiseEvent E”命令。之后，有没有办法知道 E 是否在 B 中被处理（只要事件 E 的处理程序存在于 B 类中）？

显然 E 可以包含一个参数（即布尔值），因此如果 B 中的处理程序处理它，它可以将此参数设置为 True。这不是我要问的。我想知道是否有一种内置于.NET 的方式来实现这一点，而不使用任何参数。

我试图避免的代码示例（使用参数 DoSomethingWasHandled）：

    Public Class A
        Public Event DoSomething(ByRef DoSomethingWasHandled As Boolean)
    
        Public Sub RaiseDoSomething()
            Dim DoSomethingWasHandled As Boolean = False
            RaiseEvent DoSomething(DoSomethingWasHandled)
        End Sub
    End Class
    
    Public Class B
        Public WithEvents SomeA As New A
    
        Private Sub HandleDoSomething(ByRef DoSomethingWasHandled As Boolean) Handles SomeA.DoSomething
            DoSomethingWasHandled = True
        End Sub
    End Class

我询问是否存在的代码示例：

    Public Class A
        Public Event DoSomething()
    
        Public Sub RaiseDoSomething()
            RaiseEvent DoSomething()
            If DoSomething.WasHandled Then '<-- Does this check exist in any form? ***
                DoSomethingElse()
            End If
        End Sub
    End Class
    
    Public Class B
        Public WithEvents SomeA As New A
    
        Private Sub HandleDoSomething() Handles SomeA.DoSomething
            'DoStuff...
        End Sub
    End Class

*** 这只会检查 B 类中是否存在 E 的事件处理程序，如果存在则返回 True，如果不存在则返回 False。

Answer 1

像这样。

Public Class A
    Public Event DoSomething(e As Object)

    Public Sub RaiseDoSomething()
        ' adding 'Event' to the variable name of
        '  the event allows it to be checked
        If DoSomethingEvent IsNot Nothing Then 'does the event have a subscriber(Event Handler)?
            'yes
            RaiseEvent DoSomething("TEST") 'because there is a handler this will be handled
        End If
    End Sub
End Class

Public Class B
    Public WithEvents SomeA As New A

    Private Sub HandleDoSomething(e As Object) Handles SomeA.DoSomething
        Debug.WriteLine("Do")
    End Sub
End Class

测试

    Dim FOOa As New A
    Dim fooB As New B

    FOOa.RaiseDoSomething()
    fooB.SomeA.RaiseDoSomething()