How to highlight links in code

CSS navigation control in VB.Net
This is an alternative solution to create a menu
Front UI

<div class="menu">
   
        <div class="divmenu">
        <asp:HyperLink ID="lkhome" runat="server" NavigateUrl="~/en/default.aspx"><span>Home</span></asp:HyperLink></div>
            
        <div class="divmenu">
<asp:HyperLink ID="lkmission" runat="server" NavigateUrl="~/en/Mission.aspx"><span>Mission Statement</span></asp:HyperLink></div>
            
        <div class="divmenu">
            <asp:HyperLink ID="lkintroduction" runat="server" NavigateUrl="~/en/introduction.aspx"><span>Introduction</span></asp:HyperLink></div>
           
        <div class="divmenu">
                <asp:HyperLink ID="lkvision" runat="server" NavigateUrl="~/en/vision.aspx"><span>Our Vision</span></asp:HyperLink>
         </div>
        <div class="divmenu">
                    <asp:HyperLink ID="lkservices" runat="server" NavigateUrl="~/en/services.aspx"><span>Our Services</span></asp:HyperLink>
           
        </div>
        <div class="divmenu">
            <asp:HyperLink ID="lkabout" runat="server" NavigateUrl="~/en/about.aspx"><span>About us</span></asp:HyperLink>
           </div>
        <div class="divmenu">
                <asp:HyperLink ID="lknetwork" runat="server" NavigateUrl="~/en/network.aspx"><span>Network</span></asp:HyperLink>
         </div>
        <div class="divmenu">
            <asp:HyperLink ID="lkcontact" runat="server" NavigateUrl="~/en/contact.aspx"><span>Contact us</span></asp:HyperLink>
          
        </div>
  </div>

Code Behind

 Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim address As String = Request.RawUrl.ToString
        If address.IndexOf("default") > 0 Then
            lkhome.CssClass = "active"
        ElseIf address.IndexOf("Mission") > 0 Then
            lkmission.CssClass = "active"
        ElseIf address.IndexOf("introduction") > 0 Then
            lkintroduction.CssClass = "active"
        ElseIf address.IndexOf("about") > 0 Then
            lkabout.CssClass = "active"
        ElseIf address.IndexOf("contact") > 0 Then
            lkcontact.CssClass = "active"
        ElseIf address.IndexOf("network") > 0 Then
            lknetwork.CssClass = "active"
        ElseIf address.IndexOf("services") > 0 Then
            lkservices.CssClass = "active"
        ElseIf address.IndexOf("vision") > 0 Then
            lkvision.CssClass = "active"

        End If
    End Sub

Related Posts

No Comments Yet.

Leave a reply

You must be logged in to post a comment.