Récupérer le EventHandler d'un évennement

**gderenne** · 05/03/2008, 23h19

Salut,

Je voudrais récupérer, comme le titre l'indique, le contenu du EventHandler d'un évennement afin de tester s'il est vide ou non (voir code ci-joint).

Par exemple, ce code :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Class MySuperClass
    Public Event MySuperEvent As EventHandler
 
    Sub RaiseExceptionDetectedEvent()
        ' C'est là que ca devrait se faire normalement, mais je ne sais comment :(
        Dim evtHandler As EventHandler = CType(MySuperEvent, EventHandler)
        ' ------------------------------------------------------------------------
 
        If Not evtHandler Is Nothing Then
            RaiseEvent MySuperEvent (Me, New EventArgs())
        End If
 
    End Sub
End Class

**olsimare** · 05/03/2008, 23h54

Bonjour.

Ah un CSharpiste

!

Ca sert à rien de tester si des délégués sont positionnés en VB.Net.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Class Class1
 
    Public Event MonEvt As EventHandler
 
    Protected Sub OnMyEvent()
 
        RaiseEvent MonEvt(Me, New EventArgs)
 
    End Sub
 
End Class

Le RaiseEvent va gentillement se transformer dans le compilé en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Protected Sub OnMyEvent()
        Dim xxxxx As EventHandler = Me.MonEvtEvent
        If (Not xxxxx Is Nothing) Then
            RaiseEvent xxxxx(Me, New EventArgs)
        End If
    End Sub

Cdt.