Code asp et vb.net ( action )

**thierry007** · 10/01/2014, 12h59

Bonjour à tous ( et bonne année

)

voici le code qui me donne le background de mon header dans le site
(rien d'extraordinaire)

Code :

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

<td class="auto-style20" style="background-position: center center; background-image: url('/Images/FondHeader06.png'); background-repeat: repeat-x;" colspan="4">

Je souhaiterais modifier le "background-image" via un petit code en vb qui a chaque chargment "load" une image différente via un random du genre

Code :

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

1
2
3
4
 Dim ImageNum As Integer
 
            ImageNum = (Int(Rnd() * 10))
           background-image= "~/images/FondHeader" & CStr(CInt(ImageNum)) & ".png"

quelqu'un aurais une idée la dessus ?
sachant que j'aurais au préalable une dizaine d'images nommées FondHeaderXX.png'

**thierry007** · 10/01/2014, 15h42

Cela ne donne pas d'erreur mais pas d'affichage du background non plus

Code :

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

1
2
3
4
5
6
7
8
9
10
<body>
    <form id="form1" runat="server">
    <div>
       <table cellpadding="0" class="auto-style1">
            <tr>
                <td class="auto-style20" style="background-position: center center; background-image: url(<%= backgroundImage %>); background-repeat: repeat-x;" colspan="4">
                    <br />
...
...
</body>

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
Class IsPublic
      Inherits System.Web.UI.MasterPage
      Public backgroundImage As String = "FondHeader01.png"
 
      Private Sub Page_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load, Me.Load
                End Sub
 
      Private Sub RandomImages()
            Dim ImageNum As Integer
            Dim css As HtmlGenericControl = New HtmlGenericControl()
            Dim ImageUrl As String
            css.TagName = "style"
            css.Attributes.Add("type", "text/css")
 
            ImageNum = (Int(Rnd() * 10))
            ImageUrl = "~/images/FondHeader" & CStr(CInt(ImageNum)) & ".png"
 
            css.InnerHtml = "@body{background-image: url(" + ImageUrl + ");}"
 
            Page.Header.Controls.Add(css)
 
      End Sub
 
End Class

**youtpout978** · 10/01/2014, 16h10

Rien de plus simple tu ajoute un attribut runat server et un id à ta balise pour pouvoir modifier le style en code (exemple en c#):

Code :

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

1
2
3
4
5
6
<table border="0" cellpadding="0" cellspacing="0">
        <tr>
            <td runat="server" id="tdBackground">
            </td>
        </tr>
    </table>

Code :

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

   tdBackground.Style[HtmlTextWriterStyle.BackgroundImage] = "toto.jpg";

**thierry007** · 10/01/2014, 16h30

ceci alors ?

Code :

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

1
2
3
4
5
6
7
<body>
    <form id="form1" runat="server">
    <div>
       <table cellpadding="0" class="auto-style1">
            <tr>
                <td id="tdBackground" class="auto-style20" style="background-position: center center; background-repeat: repeat-x;" colspan="4">
                    <br />

Mais alors ici j'ai un problème de déclaration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Sub RandomImages()
            Dim ImageNum As Integer
            Dim ImageUrl As String
 
 
 
            ImageNum = (Int(Rnd() * 10))
            ImageUrl = "~/images/FondHeader" & CStr(CInt(ImageNum)) & ".png"
 
            tdBackground.Style(HtmlTextWriterStyle.BackgroundImage) = ImageUrl
 
 
 
      End Sub

**katkiller** · 10/01/2014, 16h56

Il manque :

Code :

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

runat="server"

Sur ta balise <td>

**thierry007** · 11/01/2014, 11h10

Bonjour katkiller
Je pense avoir suivi ta directive
Lors de l'exécution , je n'ai pas d'affichage et pas d'erreur
mise a part la variable tdbackround qui est soulignée en bleu

Voici le code ( VB )

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
Class IsdPublic
      Inherits System.Web.UI.MasterPage
 
      Private Sub Page_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load, Me.Load
 
            RandomImages()
 
      End Sub
 
      Private Sub RandomImages()
            Dim ImageNum As Integer
            Dim ImageUrl As String
 
            ImageNum = (Int(Rnd() * 10))
            ImageUrl = "~/images/FondHeader" & CStr(CInt(ImageNum)) & ".png"
 
            tdBackground.Style(HtmlTextWriterStyle.BackgroundImage) = ImageUrl
 
      End Sub
 
End Class

et la partie 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
<body>
    <form id="form1" runat="server">
    <div>
       <table cellpadding="0" class="auto-style1">
            <tr>
                <td id="tdBackground" runat="server" class="auto-style20" style="background-position: center;  background-repeat: repeat-x;" colspan="4" >
                    <br />
..
..
 </tr>
</table>
 </div>
    </form>
</body>

**Joel Pinto Ribeiro** · 13/01/2014, 09h08

tu l'appelles à quel moment ta fonction? il faut le faire avant la generation de la page html donc dans le "OnInit" (sinon pour tout ce qui est visuel c'est trop tard notamment dans le load)

**thierry007** · 13/01/2014, 09h22

Bonjour

Je suis en vb.net

Code :

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

1
2
3
4
5
     Protected Overrides Sub OnInit(ByVal e As EventArgs)
 
            RandomImages()
 
      End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
  Private Sub RandomImages()
            Dim ImageNum As Integer
            Dim ImageUrl As String
 
            ImageNum = (Int(Rnd() * 10))
            ImageUrl = "~/images/FondHeader" & CStr(CInt(ImageNum)) & ".png"
 
            tdBackground.Style(HtmlTextWriterStyle.BackgroundImage) = ImageUrl
 
      End Sub

**youtpout978** · 13/01/2014, 09h36

Envoyé par Joel Pinto Ribeiro

tu l'appelles à quel moment ta fonction? il faut le faire avant la generation de la page html donc dans le "OnInit" (sinon pour tout ce qui est visuel c'est trop tard notamment dans le load).

Bein non la génération du visuel on peut la faire jusqu'au PreRender et surtout il est déconseillé de modifier un composant au moment du OnInit parce qu'il n'est pas complètement chargé (son viewstate est initialisé après).

Est-tu sur que l'url générée est correcte enlève le ~ notamment.

Edit: j'ai testé ce morceau de code chez moi et ça marche:

Code :

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

1
2
3
4
5
6
7
8
private void RandomImages()
        {
            int numImage;
            string imageUrl;
            numImage = new Random().Next(1, 5);
            imageUrl = "/images/FondHeader" + numImage + ".png";
            tdBackground.Style[HtmlTextWriterStyle.BackgroundImage] = imageUrl;
        }

par contre il a fallu que je définisse une taille à la balise td pour voir apparaitre mon fond d'écran comme je n'avait rien dans la balise.

**Joel Pinto Ribeiro** · 13/01/2014, 10h07

Envoyé par youtpout978

Bein non la génération du visuel on peut la faire jusqu'au PreRender et surtout il est déconseillé de modifier un composant au moment du OnInit parce qu'il n'est pas complètement chargé (son viewstate est initialisé après).

Ah, j’étais encore sur la première solution que j'avais fournis dans le lien et qui n'utilise pas directement un contrôle Server autant pour moi!

**thierry007** · 13/01/2014, 13h29

Voici le code de la basise TD de la form
ici pas d'affichage
Pour info , c'est dans une cellule du tableau que l'image doit s'affichée
le but étant d'avoir une image différente dans le header a chaque lancement du site

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
<body>
    <form id="form1" runat="server">
    <div>
       <table cellpadding="0" class="auto-style1">
            <tr>
                <td ID="tdBackground" runat="server"  colspan="4" >
                    <br />
                    &nbsp;&nbsp;
                    <asp:ImageButton ID="ImageButton1" runat="server" Height="154px" ImageUrl="~/Images/MonImage1.png" Width="315px" />
                    <br />
                    <br />
                    &nbsp;&nbsp;
                    <asp:Image ID="Image3" runat="server" Height="52px" ImageUrl="~/Images/image2.png" Width="308px" />
                    <br />
                    <br />
                </td>
            </tr>

**youtpout978** · 13/01/2014, 14h17

Pourtant le code que je t'ai fournis marche chez moi quand tu inspectes la balise td dans ton navigateur tu vois quoi dedans?

**thierry007** · 13/01/2014, 15h01

Tu veux dire lorsque j'affiche le site?

la les deux images a droite et un fond blanc

et si dans l’éditeur ( Fractionner ) lorsque je clique sur la ligne qui contient le code ID=tdBackground" ..., il me marque bien la cellule du tableau qui doit contenir les images

**youtpout978** · 13/01/2014, 15h13

Est-ce que tu vois la background-image défini dans le style de ta balise?

**thierry007** · 13/01/2014, 15h43

Je devrait retrouvé une ref dans auto-style1 alors ?

Code :

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

1
2
3
4
5
6
7
<body>
    <form id="form1" runat="server">
    <div>
       <table cellpadding="0" class="auto-style1">
            <tr>
                <td ID="tdBackground" runat="server"  colspan="4" >
                    <br />

**thierry007** · 13/01/2014, 15h43

oups manquait ce bout ci

Code :

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

1
2
3
4
5
6
7
8
9
 <style type="text/css"> 
        .auto-style1 {
             width: 100%;
             border-collapse: collapse;
        }
 
        .auto-style2 {
            text-align: center;
        }

**youtpout978** · 13/01/2014, 16h12

Je parle dans ton navigateur web sur les navigateur récents tu peux analyser facilement ton html et donc voir le style de chaque balise.

**thierry007** · 13/01/2014, 16h40

oui, effectivement
dans ce cas il a bien construit une chaine "~/images/FondHeader7.png"
j'ai aussi essayé sans le ~

fenêtre de dev dans l'explorateur

Code :

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

1
2
3
4
5
6
 <div>
       <table cellpadding="0" class="auto-style1">
            <tr>
                <td id="tdBackground" colspan="4" style="background-image:url(~/images/FondHeader7.png);">
                    <br />
                    &nbsp;&nbsp;

**youtpout978** · 13/01/2014, 17h08

Et tu as quoi comme chemin pour l'image de l'image button par exemple?
Es-tu sur que le chemin est correct, tu peux tester en mettant l'url de l'image à la suite de l'url de ton site dans la barre d'adresse de ton navigateur.
Exemple: monsite.fr/images/FondHeader3.png

**thierry007** · 13/01/2014, 17h42

solution trouvée

En fait les images sont nommées "fondheader01.png"

donc dans la construction de la chaine:

Code :

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

  tdBackground.Style(HtmlTextWriterStyle.BackgroundImage) = "/images/FondHeader0" & CStr(CInt(ImageNum)) & ".png"

et non pas

Code :

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

  tdBackground.Style(HtmlTextWriterStyle.BackgroundImage) = "/images/FondHeader" & CStr(CInt(ImageNum)) & ".png"

Merci bien pour le suivis

Code asp et vb.net ( action ) [Débutant]

ASP.NET

Discussions similaires

Partager

Partager