Bonjour,

j'essaye d'attribuer une procédure évènementielle à une collection de controls sachant que la procédure évènementielle en question modifie les propriétés du control concerné

Pour comprendre je m’entraîne sur un exemple simplifié.
imaginons que j'ai une Form (Form1), un panel (Panel1) contenant 20 boutons (Button1, Button2, Button3, Button4...)
Je souhaite que le click sur le bouton entraine la modification du text du bouton concerné en affichant "coucou"

J'ai essayé ce code mais il rien ne se passe :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Public Class Form1
    Dim BT As Button
    Private Sub changertextedans()
        Dim i As Integer
        For i = 0 To Me.Panel1.Controls.Count - 1
            BT = Me.Panel1.Controls(i)
            AddHandler BT.Click, AddressOf changertexte
        Next i
 
    End Sub
 
    Private Sub changertexte()
        BT.Text = "coucou"
    End Sub
 
End Class
Merci pour votre aide...