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>

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

ASP.NET

Vue hybride

Discussions similaires

Partager

Partager