Hi,

I am looking for a way to set a background image on the page from within a module. I don't even know if this is possible, but I don't want to use the skinning engine - I just want to set the IMG source of the top level table to a background image (I think).

I am just messing around at this point - I tried

((System.Web.UI.TemplateControl)((DotNetNuke.Framework.CDefault)this.Page))

to get a handle to the main page and see if I could insert some HTML somewhere (like "<TABLE id="tab" background='xyz.gif'>") but I'm not having any joy - any ideas on how I could achieve this?  I think I may be looking at the problem too cloesly and need to go back to basic HTML/Jscript etc.

 

 

 

---

Thanks,
Rodney
Smart-Thinker - Social Networking modules for DotNetNuke
The DotNetNuke Directory - Are you listed?
PokerDIY - Example Implementation of DNN Social Network
Do use DNN a lot? Try the DotNetNuke Toolbar to save you time!

   There is a option you can manully update page background in "Admin"-"Site Settings" - "Appearance settings " - "background image". So , I think you can try read the source code to see how dnn core to handle this.  Below is the code from default.aspx.vb
        'set the background image if there is one selected
            If Not Me.FindControl("Body") Is Nothing Then
                If PortalSettings.BackgroundFile <> "" Then
                    CType(Me.FindControl("Body"), HtmlGenericControl).Attributes("background") = PortalSettings.HomeDirectory & PortalSettings.BackgroundFile
                End If
            End If

       Wish it can help.

---

Over 20 + professional dnn modules for News Article, Store, Video Gallery, Photo Gallery, Ultra Flash Player,YouTube Video, Image Slide show, Skin Chameleon and much more from DnnModule.com

Hi Rodney.

This would write some style to to the head of the page (and it is XHTML compliant):

        Dim sStyle = String.Concat("body {background-image:url(", PortalSettings.HomeDirectory, "logo.gif)}")
        Dim oCssLink As New HtmlGenericControl("style")
        oCssLink.Attributes("type") = "text/css"
        oCssLink.InnerHtml = sStyle
        Dim oCSS As Control = Me.Page.FindControl("CSS")
        If Not oCSS Is Nothing Then
            oCSS.Controls.AddAt(0, oCssLink)
        End If

---