LinkButton dynamique et evenement click

Version imprimable

Salut à tous,

Désolé de vous importuner une fois de plus avec mes questions mais, en ce moment, j'écris une page sur laquelle je veux afficher un lien vers chaque fichier contenu dans un répertoire. Pas de problème jusque là, j'affiche le lien sous forme de linkbutton, je lui affecte le bon texte; ok. Seulement maintenant je voudrais gérer l'événement onclick, seulement je n'arrive pas à lui appliquer la méthode que j'ai créé. Je crée mes linkbutton dynamiquement (le nombre est différent selon le nombre de fichiers du répertoire).

Voila le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim chem As String 'Chemin vers le fichier dim i as integer i = 1 'cptF est le nombre de fichiers du repertoire While i <= cptF chem = "../fichiers/Articles/" lb = New LinkButton chem += tabF(i) Dim fline As String Dim text As String text = "Article n°" & i & " : " fline = f.readFirstLine(chem) 'Li et stocke la premiere ligne du fichier lb.Text = text & fline & "<br/>" lb.Attributes.Add("onclick", lb_click(Me)) i += 1 Panel1.Controls.Add(lb) End While
La méthode onclick est :
Code:

1 2 3 4 5 6 7 8 Function lb_click(ByVal sender As Object) As String Dim l As Label l = New Label l.Text = "bla <br/>" Panel2.Controls.Add(l) Return " " End Function
J'espere que vous pourrez m'aider, merci d'avance.

PS : je pense que mon problème viens du fait que je ne crée pas mes linkbutton dans le pageload mais je ne sais pas comment faire :p.

18/04/2008, 19h42
dachir

Bonjour,
A partir de quel événement crées tu tes linkboutons, c'est le même évenemenet qui te sert a faire tes affectations d'attributs. donne moi plus de précision.
:D
@+

bonsoir ! je te rajoute mon code modifié :

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
39
40
41
 
        Dim f As fonctions
        Dim s As String
        f = New fonctions
        s = f.lectureFichier("../fichiers/articles.txt")
        HttpContext.Current.Response.Write(s)
        Dim lb As LinkButton
        Dim FSO 'As Object 'New Scripting.FileSystemObject
        FSO = CreateObject("Scripting.FileSystemObject")
        'Lister les fichiers d'un repertoire
        Dim File 'As Object Scripting.File
        Dim cptF As Integer
        cptF = 0
        For Each File In FSO.GetFolder("C:\aspwebbsites/fichiers/Articles").Files
            cptF += 1
        Next
        Dim tabF(cptF) As String
        Dim i As Integer
        i = 1
        'Stockage des noms de fichiers dans un tableau : une case = un fichier
        For Each File In FSO.GetFolder("C:\aspwebbsites/fichiers/articles").Files
            tabF(i) = File.Name
            i += 1
        Next
        Dim chem As String
        i = 1
        While i <= cptF
            chem = "../fichiers/Articles/"
            lb = New LinkButton
            chem += tabF(i)
            Dim fline As String
            Dim text As String
            text = "Article n°" & i & " : "
            fline = f.readFirstLine(chem)
            lb.Text = text & fline & "<br/>"
 
            AddHandler lb.Click, AddressOf lb_click
 
            i += 1
            Panel1.Controls.Add(lb)
        End While

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    Protected Sub lb_click(ByVal sender As Object, ByVal e As EventArgs)
        'Dim f As fonctions
        'f = New fonctions
        Dim lb As LinkButton
 
        lb = CType(sender, LinkButton)
        Dim l As Label
        l = New Label
        Dim str As String
 
        str = lb.Text.ToString
        l.Text = str
        Panel2.Controls.Add(l)
 
        ' str = "test"
        '  HttpContext.Current.Response.Write("jjj") 
    End Sub

En fait, le probleme c'est surtout que je ne passe jamais dans la methode on_click et donc il ne fait jamais rien... de plus je ne suis pas sur du tout de ma technique pour recuperer mon linkbutton et ses valeurs dans ma methode on_click.

Merci d'avance !

21/04/2008, 14h30
Ghunter59

C"est bon, j'ai trouvé une maniere de resoudre mon prbleme... j'ai simplement mis ma creation de bouton dans ma methode pageload et tout va mieux, merci à tous.