From bf775fd3c2c46358f9077c2719243bb325177355 Mon Sep 17 00:00:00 2001 From: Th3maz1ng Date: Tue, 7 May 2019 11:46:29 +0200 Subject: [PATCH] =?UTF-8?q?Update=20page=20'Ev=C3=A9nement=20et=20Handlers?= =?UTF-8?q?'?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ev%C3%A9nement-et-Handlers.md | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/Ev%C3%A9nement-et-Handlers.md b/Ev%C3%A9nement-et-Handlers.md index 26a7ca0..1076d2f 100644 --- a/Ev%C3%A9nement-et-Handlers.md +++ b/Ev%C3%A9nement-et-Handlers.md @@ -11,6 +11,21 @@ Lorsque le contrôle était instancié via le designer, vous faisiez comme cela End Sub ``` +Avec l'association dynamique, il faut procéder comme suit: +On assigne l'événement à un gestionnaire (un Sub simple, ici Button_Click), par exemple lors de l'initialisation du contrôle ou de la fenêtre. +``` vbnet + AddHandler Button1.Click, Sub(Sender, e) Button_Click(Sender, e) + AddHandler Button2.Click, Sub(Sender, e) Button_Click(Sender, e) + AddHandler Button3.Click, Sub(Sender, e) Button_Click(Sender, e) +``` +Il nous reste ensuite à implémenter le gestionnaire : +``` vbnet + Private Sub Button_Click(sender As Object, e As EventArgs) + CType(sender, Button).Text = "Clicked" 'Change le texte du bouton lorsque l'on clique dessus + End Sub +``` +Attention Si l'événement est déclenché plus d'une fois, vérifiez que la fonction dans laquelle vous ajoutez vos gestionnaires ne soit pas éxécutée plus d'une fois. + ----- ###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci*