AddHandler pour Boutons créé dynamiquement
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:
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 |
