afficher des images dans une table

**battit64** · 14/04/2008, 16h36

Bonjour j'ai ce code dans une page aspx.vb qui m'affiche des images dans un panel.ca marche mais je voudrais afficher ces images dans un tableau car ce resultat est ceui d'une requete et sous chaque photo je dois rajouter du texte.
Comment fais t'on pour interfacer du code vb et html

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 nombre_affichettes = Nombre_affiche(date1)
        Dim n As Integer = 1
        Do While n <= nombre_affichettes
            Dim IMG_Affiche As New Image
 
            IMG_Affiche.AlternateText = "image" & n
            IMG_Affiche.ImageUrl = "~/IMG/REP_petit.jpg"
 
            Panel1.Controls.Add(New LiteralControl(" "))
 
            Panel1.Controls.Add(IMG_Affiche)
 
 
        Loop

**BCmDev** · 14/04/2008, 17h52

Suivant tes besoins, tu peux utiliser System.Web.UI.HtmlControls.HtmlTable ou System.Web.UI.WebControls.Table pour gérer un tableau.

**battit64** · 14/04/2008, 18h18

peux tu me donner un exemple d'incrémentation de ma boucle et affichage dans une table en sachant que le nombre de photo afficher et peux etre différents.
Dsl mais je suis novice

**BCmDev** · 15/04/2008, 09h13

Voici un exemple (je l'ai écrit comme ça, donc il y a peut-être une ou deux erreurs mais kle principe est là) :

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
 
        Dim table As HtmlTable = New HtmlTable
        Panel1.Controls.Add(table)
 
        Do While n <= nombre_affichettes
 
            ' Nouvelle ligne.
            Dim tableRow As HtmlTableRow = New HtmlTableRow
            table.Rows.Add(tableRow)
 
            ' Première cellule : image
            Dim tableCell As HtmlTableCell = New HtmlTableCell
            tableRow.Cells.Add(tableCell)
            Dim IMG_Affiche As New Image
            IMG_Affiche.AlternateText = "image" & n
            IMG_Affiche.ImageUrl = "~/IMG/REP_petit" & n & ".jpg"
            tableCell.Controls.Add(IMG_Affiche)
 
            ' Seconde cellule : texte
            tableCell = New HtmlTableCell
            tableRow.Cells.Add(tableCell)
            tableCell.Controls.Add(New LiteralControl("Ceci est l'image " & n))
        Loop

**battit64** · 15/04/2008, 10h15

DSL j'ai mis un nouveau post car j'avais à peut prés reussi mais en fait il faudrait que j'affiche le texte sur l'image.est ce possible

**BCmDev** · 15/04/2008, 10h46

Tu peux mettre une image en fond d'une cellule :

Code :

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

1
2
 
tableCell.Style.Add("background-image", imageUrl)

**battit64** · 15/04/2008, 10h59

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
If i <> 4 Then
                Dim IMG_affichette As New ImageButton
                Dim texte As New Label
                Dim c As New TableCell()
                c.Style.Add("background-image", "~/IMG/REP_petit.JPG")
                'c.Controls.Add(IMG_affichette)
                'IMG_affichette.ImageUrl = "~/IMG/REP_petit.JPG"
                'IMG_affichette.ImageAlign = ImageAlign.AbsMiddle
                'IMG_affichette.Height = 159
                'IMG_affichette.Width = 126
                c.Controls.Add(texte)
                texte.Height = 159
                texte.Width = 126
                texte.Text = "toto"
 
 
                r.Cells.Add(c)
                i = i + 1
            Else
 
                TB_REP.Rows.Add(r)
                i = 1
            End If
            nombre_affichettes = nombre_affichettes - 1
        Loop

j'ai essayé mais ça ne me met pas l'image en fond!

**battit64** · 15/04/2008, 11h10

finalement je l'ai intégré directment dans la page et ça marche

**battit64** · 15/04/2008, 11h13

finalement autre question :

Code :

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

1
2
3
4
5
Dim texte2 As New Label
                Dim q As New TableCell()
                q.Controls.Add(texte2)
                texte2.Height = 159
                texte2.Width = 126

quand je crée mon label comment changer la police,la taille et centrer le texte?

**BCmDev** · 15/04/2008, 11h26

Regarde Label.Font, je pense que cela te conviendra.
Si le problème original est résolu, clique sur le bouton idoine.
Si tu as d'autres questions, ouvre une nouvelle discussion sinon tout se mélange et on ne s'y retrouve pas...

**battit64** · 15/04/2008, 11h32

oui mais label.font est en leccture seul....
ok je ferme mais le probleme c'est qu'il faut que j'affiche dans mes cellule de mon tableau
et si je me sert pas de mon label et je fais un
q.Controls.Add(New LiteralControl("toto"))

car je peux changer la police directment dans ma table comment lui dire de centrer ce texte?

**BCmDev** · 15/04/2008, 11h38

Font est en lecture seule, mais pas ses propriétés : Name, Bold, etc...

**battit64** · 15/04/2008, 12h56

Code :

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

tableCell.Style.Add("background-image", imageUrl)

tu es sur de cette commande pour afficher un fond dans une cellule

**BCmDev** · 15/04/2008, 15h04

Oui.
Par exemple, ce code fonctionne :

Code :

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

1
2
3
4
5
6
 
            Dim tableCell As HtmlTableCell = New HtmlTableCell
            tableRow.Cells.Add(tableCell)
            tableCell.Height = 100
            tableCell.Style.Add("background-image", "http://localhost:1324/Images/image.gif")
            tableCell.Controls.Add(New LiteralControl("Ceci est l'image " & n))

As-tu une taille de cellule qui te permet de voir l'image de fond ?

**battit64** · 15/04/2008, 20h55

je comprends pas chez moi ça marche pas!! as tu rajouter des imports au début

**BCmDev** · 16/04/2008, 09h06

ça marche pas

C'est un peu court. Que se passe-t-il ? Une erreur de compilation, une exception, un comportement différent de celui souhaité ?
Poste le code permettant de comprendre.

**battit64** · 24/04/2008, 23h07

DSL mais j'étais parti sur autre chose mais je reviens à mes moutons
effectivement ce code marche

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
Dim table As HtmlTable = New HtmlTable
        Dim tableRow As HtmlTableRow = New HtmlTableRow
        Panel1.Controls.Add(table)
        table.Rows.Add(tableRow)
        If nombre_affichettes > 0 Then
            Panel1.Visible = True
 
        End If
        For i = 0 To nombre_affichettes - 1
            Dim tableCell As HtmlTableCell = New HtmlTableCell
            tableRow.Cells.Add(tableCell)
 
            tableCell.Height = 150
            tableCell.Style.Add("background-image", "http://localhost:1852/AJAXEnabledWebSite1/IMG/REP_petit.jpg")
            tableCell.Style.Add("border-style", "double")
            tableCell.Style.Add("font-size", "x-small")
            tableCell.Controls.Add(New LiteralControl(resultat(0, i)))
            i = i + 1
        Next

le probleme c'est que je voudrais afficher dans chaque cellule un texte différents et

Code :

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

tableCell.Controls.Add(New LiteralControl(resultat(0, i)))

ne convient pas
Le mieux serait de rajouter dans ma cellule à la volée un label par exemple pour pouvoir affecter un texte différents mais surtout dans ma BD j'ai les retour chariot et je veux qu'il s'insere et je sais que dans un label cela le fera

**battit64** · 25/04/2008, 00h06

en fait en vba word lorsque j'affiche dans mon label mon champs tiré de ma base de donnée ou j'ai les retour chariot champs1=titre+RC+corps du message le label prends bien les RC mais lorsque je le fais avec un champs ASP il met tout sur la meme ligne

afficher des images dans une table

ASP.NET

Discussions similaires

Partager

Partager