Discussion :

[warubi]

Bonjour à tous ! J'aimerais lier une fonction à l'evenement Click de tous les boutons de ma form cependant cela est tres fastidieux. N'y aurait-il pas un moyen de faire un truc du genre :

Code :

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

1
2
3
 
Private Sub XXXX() Handles buttons.Click 'Tous les boutons
End Sub

ou une boucle qui parcours l'ensemble des boutons

Code :

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

1
2
3
4
 
For each bton as Button In "GetButton()" 
Addhandler Bton.Click, Address Of XXXX
Next

Merci de votre aide

[tomlev]

Code :

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

1
2
3
4
5
6
7
 
For Each c As Control In Me.Controls
    If TypeOf c Is Button Then
        Dim b As Button = CType(c, Button)
        AddHandler b.Click, AddressOf XXXX
    End If
Next

Par contre la signature que tu as mis pour XXXX n'est pas correcte, elle devrait prendre en paramètre un Object et un EventArgs.

Mais bon, ça n'a pas vraiment de sens de vouloir attribuer le même handler à tous les boutons : si ça se trouve un jour tu vas créer un autre bouton qui n'aura rien à voir, et dont l'évènment click ne devra pas être géré par cette fonction...

[Graffito]

Pour compléter la réponse de Tomlev, il faudrait aussi envisager tous les boutons, même ceux dans des panneaux.
Ce qui implique de parcourir tout l'arbre des Controls : on pourra utiliser une procédure récursive.