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