[VB.NET] affichage dans un tableau créé dynamiquement

Version imprimable

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..8O

y-a-t-il une solution?:aie:

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

09/11/2006, 19h38
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:

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.

@+
10/11/2006, 08h24
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:

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

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

:mrgreen:

Amen :

Code:

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