Discussion :

[ManuSG]

Bonjour à tous,

Je voudrait s'il est possible et si oui comment faire pour définir un AddHandler de façon dynamique en VB.Net.

En fait, j'aimerais ecrire une méthode a qui on passerait en paramètre un objet et un nom de méthode (chaine) et qui fasse le AddHandler Objet.evenement, AddressOf MéthodeDefiniEnParametre

Merci de vos réponses

[Apocalyps]

Bonjour Manu
J'ai fait mes petits tests, et ce que tu demandes est bien possible.

Voici une petite fonction permettant de le faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Sub AttachEvent(ByVal target As Object, ByVal eventName As String, ByVal methodOwner As Object, ByVal methodName As String)
        Dim targetType As Type
        Dim targetEventInfo As Reflection.EventInfo
        Dim eventMethod As [Delegate]
 
        targetType = target.GetType
        targetEventInfo = targetType.GetEvent(eventName)
        eventMethod = [Delegate].CreateDelegate(targetEventInfo.EventHandlerType, methodOwner, methodName)
 
        targetEventInfo.AddEventHandler(target, eventMethod)
    End Sub

target : Objet duquel tu veux attaché un évènement vers la méthode dont tu passe le nom en paramètre

eventName : Nom de l'évènement a attaché (eg : "Click")

methodOwner : Objet sur lequel la méthode (dont le nom est passé en paramètre) est déclarée

methodName : Nom de la méthode sur lequel l'évènement doit être attaché (eg : "Button1_Click")

Exemple d'utilisation :
Dans un projet VB.net (fx 2.0), dans lequel tu as une form "Form1" dans laquelle se trouve un bouton "Button1" : Dans la page code de ta Form1, écrit une méthode comme ci-dessous :

Code :

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

1
2
3
4
 
    Sub Bigbadaboom (ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Dada !")
    End Sub

Copie ensuite la fonction "AttachEvent" que je t'ai ecrit plus haut.

Enfin, appel la fonction AttachEvent quelque part dans ton code (dans l'évènement Load de ta form par exemple) comme suit :

Code :

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

1
2
 
AttachEvent(Me.Button1, "Click", Me, "Bigbadaboom")

Et donc à la fin, d'après mes tests, lorsque tu click sur ton Button1 lors de l'exécution, un message "Dada !" s'affiche.
En espérant que ça puisse t'aider.

[ManuSG]

Salut,

Ça marche très bien

Merci pour ta réponse, tu m'as beaucoup aidé