Discussion :

[veens777]

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...

[rv26t]

Bonjour,

Il faut attribuer une nouvelle procédure au click, et utiliser sender pour connaître celui qui génére le Click.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Sub frmEvent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf Button_Click
        AddHandler Button2.Click, AddressOf Button_Click
        AddHandler Button3.Click, AddressOf Button_Click
        '...
    End Sub
 
    Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim bt As Button = sender
        bt.Text = "click"
    End Sub

A+, Hervé.

[veens777]

ok déjà un grand merci car ton exemple m'a permis de résoudre une grosse partie de ma problématique.

en réalité j'ai une centaine de controle dans le panel.
faut-il taper la phrase "AddHandler Button1.Click, AddressOf Button_Click" pour chaque contrôles?
pourquoi la simplification ci-dessous ne fonctionne-t-elle pas ? :

Code :

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

1
2
3
4
5
6
        Dim i As Integer
        Dim BTO As Button
        For i = 0 To Panel1.Controls.Count - 1
            BTO = Panel1.Controls(i)
        Next i
        AddHandler BTO.Click, AddressOf Button_Click

Encore merci pour ton aide

[rv26t]

faut-il taper la phrase "AddHandler Button1.Click, AddressOf Button_Click" pour chaque contrôles?

Pas du tout, c'était simplement pour mon test.

J'ai fait un autre test

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub frmEvent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BT As Button
        For i = 0 To Me.Panel1.Controls.Count - 1
            BT = Me.Panel1.Controls(i)
            AddHandler BT.Click, AddressOf Button_Click
        Next i
    End Sub
 
    Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim tb As Button = sender
        tb.Text = "click"
    End Sub

et cela fonctionne.

pourquoi la simplification ci-dessous ne fonctionne-t-elle pas ? :

Code :

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

1
2
3
4
5
6
        Dim i As Integer
        Dim BTO As Button
        For i = 0 To Panel1.Controls.Count - 1
            BTO = Panel1.Controls(i)
        Next i
        AddHandler BTO.Click, AddressOf Button_Click

Ta simplification ne fonctionne pas car le "AddHandler" est en dehors de ta boucle. (Seul le dernier bouton est concerné.)

A+, Hervé.

[veens777]

nikel tout fonctionne !

encore MERCI !