controle cree dynamiquement

Version imprimable

Bonjour a tous!
Je souhaite creer un controle dynamiquement (un linkbutton) ce que j'ai reussi a faire. Mon proleme se situe au niveau de l'evenement que je souhaite ajouter a ces linkbuttons. voici le code qui ne marche pas:

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
Dim count As Double = 0
 
        Dim t As New Table
        Dim r As New TableRow
        FrameCell.Controls.Add(t)
        t.Rows.Add(r)
        Dim list As ListItemCollection = SizeDropList.Items
 
        For Each item As ListItem In list
            If ... Then
                Dim c As New TableCell
                Dim t2 As New Table
                Dim r2 As New TableRow
                Dim c2 As New TableCell
                Dim asi As New LinkButton
 
 
                asi.CssClass = "AdSizeInfo"
                asi.ID = "asi_" & item.Value
                AddHandler asi.Click, AddressOf OnAdSizeClick
		...
                asi.Controls.Add(t2)
                c.Controls.Add(asi)
		...
            End If
        Next

Auriez vous des idees de solutions?
Merci a tous !

24/03/2009, 09h58
tomlev

OnAdSizeClick, tu l'as déclaré comment ?
25/03/2009, 12h23
deathsurfer

Code:

Protected Sub OnAdSizeClick (ByVal sender As Object, ByVal e As System.EventArgs)
25/03/2009, 13h49
tomlev

Et quand tu dis que ça marche pas, il se passe quoi au juste ? il y a une erreur ? OnAdSizeClick n'est pas appelée ?

Et le code que tu as posté au début, tu l'as mis à quel endroit ?

EDIT:

Citation:

Code:

asi.Controls.Add(t2)

Je comprends pas trop ce que tu fais, là... tu ajoutes un tableau dans un LinkButton ??

c'est l'inverse qu'il faut faire !

il te faut affecter ton LinkButton à ta cellule, ta cellule à ta row et ta row à ta table.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
        For Each item As ListItem In list
            If ... Then
                Dim c As New TableCell
                Dim t2 As New Table
                Dim r2 As New TableRow
                Dim c2 As New TableCell
                Dim asi As New LinkButton
 
 
                asi.CssClass = "AdSizeInfo"
                asi.ID = "asi_" & item.Value
                AddHandler asi.Click, AddressOf OnAdSizeClick
		...
                c2.Controls.Add(asi)
                r2.Controls.Add(c2)
                t2.Controls.Add(r2)
		...
            End If
        Next