Y a-t-il un moyen de savoir dans VB.NET si un gestionnaire a été enregistré pour un événement?

Question

En C# Je peux tester cette ...

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

Est-il possible de le faire en VB.NET? Test pour null je veux dire?

PLUS D'INFO

j'oublié de mentionner. J'ai des cours écrits en C# mais j'écris mes tests unitaires en VB.NET.

J'essaie ceci dans le test unitaire ...

If myObject.Trigger IsNot Nothing Then 
    ''#do something 
End If 

Cela provoque une erreur de compilation qui dit ... « Trigger Event public est un événement et ne peut pas être appelée directement. Utilisez le RaiseEvent déclaration pour élever un événement. "

Seth

Answer 1

Il existe une discussion intéressante à la question 1129517 sur la façon de faire cette chose en C#. Puisque la classe qui contient l'événement a été écrite en C#, la sémantique du délégué s'applique, et ces techniques devraient fonctionner pour vous. Cependant, vous devrez traduire la source vers VB.NET pour votre test unitaire.

Compte tenu de la classe suivante dans un assemblage C#:

public class Triggerific 
{ 
    public event EventHandler Trigger; 

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

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

Voici un code VB.NET qui correctement déterminer si un gestionnaire a été enregistré pour l'événement déclencheur:

<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 

Answer 2

Oui. null est appelé "Nothing" dans Visual Basic.

If Trigger IsNot Nothing Then 

Mise à jour

La réponse ci-dessus décrit comment vérifier quelque chose pour null dans VB .NET. Malheureusement, les événements sont gérés par le compilateur VB.NET.

Pour cette définition de l'événement:

Public Event Trigger as EventHandler 

Vous utilisez ce code pour vérifier les abonnements

If TriggerEvent Is Nothing 

Remarquez comment VB.Net ajouté un champ avec le suffixe Event pour représenter le délégué. Avoir un look here for an explanation.

Answer 3

Tout d'abord, il y a un problème avec votre code C#. Il faut lire comme ceci pour réduire la probabilité d'une condition de course sur la suppression du dernier gestionnaire dans un thread séparé juste au mauvais moment (indice pourquoi cela fonctionne: les délégués mulit-cast sont immuables):

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

En second lieu , il n'y a pas besoin de ce code du tout dans VB.Net. VB gère les événements un peu différemment, de sorte que vous ne devriez pas vérifier du tout si des gestionnaires sont enregistrés. Il est sûr et préféré de simplement augmenter l'événement:

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

Answer 4

Vous ne devriez pas avoir un test d'unité pour vérifier si un gestionnaire est enregistré. Comment sauriez-vous si c'était le gestionnaire correct, ou si c'était le gestionnaire correct mais se comportait incorrectement?

Quel est le but de votre test?

Answer 5

Je crois la syntaxe que j'utilise pour cela dans VB.Net est:

Public Event Trigger As EventHandler 


Friend Sub OnTrigger(ByVal e As EventArgs) 
    If TriggerEvent IsNot Nothing Then 
     RaiseEvent Trigger(Me, e) 
    End If 
End Sub 

Même si triggerEvent-t n'a pas l'air d'être déclaré que le compilateur le comprendra. Plus proche émule la syntaxe C#. Aussi j'ai lu quelque part que le code avec ce contrôle asserigned de gestionnaire court fater, mais je ne peux pas pointer vers cela pour le moment, ainsi vous pouvez prendre ou laisser cela.

Je pense que c'est la sytax, de toute façon. S'il vous plaît ne me tirez pas si ce n'est pas tout à fait correct!

Answer 6

Il existe une "fonctionnalité" intéressante de langage dans VB .NET. Une variable membre est créée pour les événements qui exposent le délégué:

Public Event MyEvent As EventHandler 
Public Sub Test() 

    Dim test = MyEventEvent 
    Dim invokers = test.GetInvocationList() 

End Sub 

Vous pouvez réellement obtenir la liste d'invocation de cette manière.