Gibt es eine Möglichkeit zu wissen, in VB.NET wenn ein handler registriert wurde, für eine Veranstaltung?

Gibt es eine interessante Diskussion in Frage Eine Million eins hundert neun und zwanzig tausend fünf hundert siebzehn um, wie dies zu tun genau das, was in C#.

Da die Klasse enthält, die Veranstaltung wurde in C# geschrieben, die Stellvertretung Semantik gelten, und diese Techniken sollen für Sie arbeiten. Allerdings werden Sie brauchen, um zu übersetzen, die Quelle zu VB.NET für Ihre unit-test.

Gegeben folgende Klasse in C# - assembly:

public class Triggerific
{
    public event EventHandler Trigger;

    private static void OnTriggerTriggered(object sender, EventArgs e)
    {
        Console.WriteLine("Triggered!");
    }

    public void AddTrigger()
    {
        Trigger += OnTriggerTriggered;
    }
}

Hier einige VB.NET code wird korrekt bestimmen, wenn ein handler registriert wurde, für das Trigger-Ereignis:

<TestMethod()> _
Public Sub TriggerTest()
    Dim cut As New Triggerific
    cut.AddTrigger()

    Assert.IsNotNull(GetEventHandler(cut, "Trigger"))
End Sub

Private Shared Function GetEventHandler(ByVal classInstance As Object, ByVal eventName As String) As EventHandler
    Dim classType As Type = classInstance.[GetType]()
    Dim eventField As FieldInfo = classType.GetField(eventName, BindingFlags.GetField Or BindingFlags.NonPublic Or BindingFlags.Instance)

    Dim eventDelegate As EventHandler = DirectCast(eventField.GetValue(classInstance), EventHandler)

    ' eventDelegate will be null/Nothing if no listeners are attached to the event
    Return eventDelegate
End Function

Zuerst von allen, gibt es ein problem mit Ihrem c# - code. Es Lesen sollten, wie dies zur Verringerung der Wahrscheinlichkeit eines race-Bedingung, auf die Beseitigung der letzten handler in einem separaten thread in der falschen Zeit (Hinweis auf, warum es funktioniert: Multi-cast delegates sind unveränderlich):

public event EventHandler Trigger;
protected void OnTrigger(EventArgs e)
{
    var temp = Trigger;
    if (temp != null)
        temp(this, e);
}

Zweitens, es gibt keine Notwendigkeit, für das dieser code überhaupt in VB.Net. VB behandelt die Ereignisse etwas anders, so dass Sie, sollten Sie nicht überprüfen, ob alle Handler registriert werden. Es ist sicher und lieber nur das Ereignis auslösen:

Public Event Trigger As EventHandler
Friend Sub OnTrigger(ByVal e As EventArgs)
    RaiseEvent Trigger(Me, e)
End Sub

Sollten Sie nicht über ein unit-test überprüfen, um zu sehen, wenn ein handler registriert ist. Wie würden Sie wissen, ob es die richtige handler, oder wenn es war der richtige handler wurde aber nicht ordnungsgemäß verhält?

Was ist der Sinn des test?