Populating the menu using SiteMapDataSource using "VB"

C

calvin

Regular
Joined
Nov 6, 2003
Messages
71
Is anyone know how to populating the menu by user role using SiteMapDataSource in vb code?I found a lot of code use the c#. I'm not familiar with that.
C#: 
"Login Page"  <-this is simple login authentication page

protected void Button1_Click(object sender, EventArgs e)
{
string userName = txtUserName.Text;


if (userName.Equals("admin"))
Response.Redirect("~/Admin/AdminHomePage.aspx");
else if (userName.Equals("user"))
Response.Redirect("~/User/UserHomePage.aspx"); 
}

"Class File - Navigation Manager"

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;

public class NavigationManager
{
public static SiteMapDataSource GetSiteMapDataSource(string role)    {  <--How to change to VB code???
string url = String.Empty;

if (role.Equals("Admin"))      <--- Question 1: How it get this role??, since txtUserName.Text is store in userName 
url = "~/AdminAdminHomePage.aspx";
else if (role.Equals("User"))
url = "~/User/UserHomePage.aspx";


XmlSiteMapProvider xmlSiteMap = new XmlSiteMapProvider();

System.Collections.Specialized.NameValueCollection myCollection = new System.Collections.Specialized.NameValueCollection(1);

myCollection.Add("siteMapFile", "Web.sitemap");
xmlSiteMap.Initialize("provider", myCollection);
xmlSiteMap.BuildSiteMap();

SiteMapDataSource siteMap = new SiteMapDataSource();
siteMap.StartingNodeUrl = url;
siteMap.ShowStartingNode = false;

return siteMap;
}
}
Anyone can help me to convert this "VB" code will be more appreciate.

Calvin
 
Last edited by a moderator:
My VB isn't perfect, but a conversion of that code is something along the lines of the following (if it's not entirely right it should still save somebody else some time).
Visual Basic: 
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
    Public Shared Function GetSiteMapDataSource(ByVal role As String) As SiteMapDataSource

        Dim url As String = String.Empty

        If (role.Equals("Admin")) Then
            url = "~/AdminAdminHomePage.aspx"
        ElseIf (role.Equals("User")) Then
            url = "~/User/UserHomePage.aspx"
        End If


        Dim xmlSiteMap As New XmlSiteMapProvider
        Dim myCollection As New System.Collections.Specialized.NameValueCollection(1)

        myCollection.Add("siteMapFile", "Web.sitemap")
        xmlSiteMap.Initialize("provider", myCollection)
        xmlSiteMap.BuildSiteMap()

        Dim siteMap As New SiteMapDataSource
        siteMap.StartingNodeUrl = url
        siteMap.ShowStartingNode = False

        Return siteMap

    End Function
 
Back
Top