ch-7

nicks gajera · February 8th, 2011, 03:16 AM

hello
my sir/mem because i'm new in programming lang.

i have a problame on ch-7 navigation.
when i applied 'darkgrey' theme my treeview does'nt work,it display Ractangle box including all four tabs.
i check all file with your code file but does'nt work.

than finally i find problem in 'masterpage.vb' than i replaced it with your file than it's work.
but i checked both file.my file and your both have a same coding but my file not work.
so whats the problem that i'm facing.

Imar · February 8th, 2011, 03:31 AM

Hi there,

Can you post your original code that didn't work?

Cheers,

Imar

nicks gajera · February 8th, 2011, 05:13 AM

dear sir,
This is code of 'frontendmaster.vb' codebehind file of masterpage
so reply me whare is the mistake that i dont seems...
and Thank you for your instant reply.
this is my first thread in wrox
and also your book is very helpfull for me to understand programming.
i have only knoledge of html,CSS so please sir,tell me which book of programming should i read first...

Code:

Partial Class MasterPages_Frontend
    Inherits System.Web.UI.MasterPage

    Protected Sub ThemeList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ThemeList.SelectedIndexChanged
        Dim preferredTheme As HttpCookie = New HttpCookie("PreferredTheme")
        preferredTheme.Expires = DateTime.Now.AddMonths(3)
        preferredTheme.Value = ThemeList.SelectedValue
        Response.Cookies.Add(preferredTheme)
        Response.Redirect(Request.Url.ToString())
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Dim selectedTheme As String = Page.Theme
            Dim preferredTheme As HttpCookie = Request.Cookies.Get("PreferredTheme")
            If preferredTheme IsNot Nothing Then
                selectedTheme = preferredTheme.Value
            End If
            If Not String.IsNullOrEmpty(selectedTheme) AndAlso ThemeList.Items.FindByValue(selectedTheme) IsNot Nothing Then
                ThemeList.Items.FindByValue(selectedTheme).Selected = True
            End If
        End If
        Select Case Page.Theme.ToLower()
            Case "darkGrey"
                Menu1.Visible = False
                TreeView1.Visible = True
            Case Else
                Menu1.Visible = True
                TreeView1.Visible = False
        End Select
    End Sub
End Class

Imar · February 8th, 2011, 06:01 AM

The problem is in this code:

Code:

 
    Select Case Page.Theme.ToLower()
           Case "darkGrey"
               Menu1.Visible = False
               TreeView1.Visible = True
           Case Else
               Menu1.Visible = True
               TreeView1.Visible = False
       End Select

You call ToLower() on the theme (which is good), but then don't use a lower cased value in the case statement. So, darkgrey will never match darkGrey. Change the upper case G to a lower case g and it should work.

Quote:

i have only knoledge of html,CSS so please sir,tell me which book of programming should i read first...

Not sure what you're asking. First compared to what? What are your choices?

Imar