Discussion :

[Ghunter59]

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 :

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

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

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.

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

@+

[Ghunter59]

bonsoir ! je te rajoute mon code modifié :

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

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

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