Bonjour,

C'est la première fois que je créé des boutons de manières dynamique et j'en créé entre 0 et 100 (dans un Do...Loop Until). Ils appellent tous la même fonction mais idéalement, mais avec un paramètre différent. Or j'utilise AddHandler ... AdressOf pour leur adjoindre un évènement et cela ne permet pas de passer des argument. Je pensais tout de même pouvoir récupérer le nom du bouton, mais cela ne semble pas possible non plus.

Quelqu'un aurait-il une idée pour savoir quel bouton à provoqué un évènement, ou pour passer le iLine en paramètre d'un click? Je cherche depuis se matin, en vain.
D'avance merci,

Voici la manière dont je créé mes boutons
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 Do
            Dim sLine As String = SRStorProt.ReadLine()
            'compare = sLine = sPattern.ToLower
            If sLine.Length > 1 Then
 
                'Placez ici le code utilisateur pour initialiser la page
                Dim btn_Bouton As Button
                'If Not Me.IsPostBack Then
                'For intI As Integer = 0 To 100
                btn_Bouton = New Button()
                With btn_Bouton
                    'btn_Bouton.Name = "Submit"
                    .Name = iLine.ToString
                    .Text = sLine
                    .Width = 120
                    .Height = 40
                    .Location = New Point(10 + iX * 140, 10 + iY * 60)
                End With
                Panel2.Controls.Add(btn_Bouton)
                'If (intI Mod 2) < 1 Then
                AddHandler btn_Bouton.Click, AddressOf fChaineClicked
                'Else
                'AddHandler btn_Bouton.ServerClick, AddressOf modifierClt
                'End If
                'Next
 
                iX = iX + 1
                If iX = 6 Then
                    iX = 0
                    iY = iY + 1
                End If
 
            End If
            iLine = iLine + 1
            If iLine = 100 Then Exit Do
 
        Loop Until iLine = 101