Discussion :

[elastoplas]

Salut,

J'utilise ce code pour afficher des images contenues dans un dossier dans un tableau.

cependant, je n'arrive pas à contrôler l'affichage à l'interieur des cellules :

Images et labels s'affiche un à coté de l'autre et je n'arrive pas à ce que le label s'affiche au dessus ou au dessous de l'image dans la cellule..

y-a-t-il une solution?

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
42
43
44
45
46
47
 
 
   Dim nblignes, i, j, nb As Byte
        Dim Ligne As HtmlTableRow       
        Dim cellule As HtmlTableCell   
 
        Dim page
 
        page = Request("id")
 
 
        nblignes = Int(compteur / 3)
        nb = 0
 
        For i = 1 To nblignes + 1
            Ligne = New HtmlTableRow
            Ligne.BorderColor = "#3399FF"
            For j = 1 To 3  'Création des cellules
                nb = nb + 1
                If tabImage(nb) <> "" Then
 
                    cellule = New HtmlTableCell
                    cellule.Align = "middle"
 
                    Dim img As New System.Web.UI.WebControls.Image
                    img.ImageUrl = "D:\PARTAGE\BDD\Dossier 1\Éléments client\images " & page & "\" & tabImage(nb)
 
                    img.Width = System.Web.UI.WebControls.Unit.Pixel(160)
                    img.Height = System.Web.UI.WebControls.Unit.Pixel(125)
 
                    img.ToolTip = tabImage(nb)
 
                    Dim lbl As New System.Web.UI.WebControls.Label
 
                    lbl.Text = tabImage(nb)
                    lbl.ForeColor = System.Drawing.Color.White
 
                    cellule.Controls.Add(img)
 
                    cellule.Controls.Add(lbl)
 
                    Ligne.Cells.Add(cellule)  
                End If
            Next
            tableau.Rows.Add(Ligne)       
        Next
    End Sub

[fumesec]

Bonsoir,

En utilisant la propriété innerHtml de ta cellule de type "HtmlTableCell", tu devrais pouvoir ajouter du code HTML. Ce dernier te permettra de formatter ta cellule et d'utiliser la mise en forme que tu souhaites.
Ainsi tu pourrais avoir un code similaire à celui-ci :

Code :

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

cellule.innerhtml = "<b>Hello<b>"

Le code ci-dessus affichera Hello.
Tu devrais pouvoir utiliser cette propriét pour mettre en page tes labels et tes images.

J'espère que cela t'aidera.

@+

[elastoplas]

salut fumesec,

merci pour ton aide! mais je me retrouve en fait devant un autre problème :

J'utilise donc la propriété InnerHtml comme tu me l'as conseillé

Code :

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

1
2
3
4
 
cellule.Controls.Add(lbl)
cellule.InnerHtml = "<br>"
cellule.Controls.Add(img)

Ici, j'insère un label puis le code "<br>" ensuite une image, ce qui devrait en théorie mettre une ligne entre le label et l'image.. mais le label ne s'affiche pas..

En fait toute les insertions que j'essaie de faire avant cellule.InnerHtml ne s'affichent pas

[elastoplas]

Amen :

Code :

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

1
2
3
4
 
cellule.Controls.Add( lbl ) 
cellule.Controls.Add( new LiteralControl("<br>"))
cellule.Controls.Add(img)