defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.WebControls
Imports System.Xml


Namespace Telerik.MenuExamplesVBNET.Menu.Examples.Design.MultipleMenus
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected Menu1 As Telerik.WebControls.RadMenu
      Protected Radmenu1 As Telerik.WebControls.RadMenu
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not IsPostBack Then
            InitialSetup()
         End If
      End Sub 'Page_Load
      
      
      Protected Sub InitialSetup()
         'here we set all the required parameters for
         'the initial stage
         Radmenu1.LoadContentFile("menu.xml")
         Menu1.LoadContentFile("menu.xml")
         Radmenu1.CssFile = "menu.css"
         Menu1.CssFile = "menu.css"
         Radmenu1.ImagesBaseDir = "images/"
         Menu1.ImagesBaseDir = "images/"
         Radmenu1.RootGroup.Flow = PresentationDirection.Vertical
         Dim i As Integer
         For i = 0 To Radmenu1.RootGroup.Items.Count - 1
            Radmenu1.RootGroup.Items(i).ID += "rootitem" + i.ToString()
            SetGroupExpandRecursive(Radmenu1.RootGroup.Items(i), ExpandDirection.Right)
         Next i
      End Sub 'InitialSetup
      
      
      Protected Sub SetGroupExpandRecursive(rootItem As Telerik.WebControls.MenuItem, GroupExpand As ExpandDirection)
         If Not (rootItem.ChildGroup Is Nothing) And rootItem.ChildGroup.Items.Count > 0 Then
            rootItem.ChildGroup.ExpandDirection = GroupExpand
            Dim i As Integer
            For i = 0 To rootItem.ChildGroup.Items.Count - 1
               rootItem.ChildGroup.Items(i).ID += rootItem.ID + "subitem" +(i * 101).ToString()
               SetGroupExpandRecursive(rootItem.ChildGroup.Items(i), GroupExpand)
            Next i
         End If
      End Sub 'SetGroupExpandRecursive
      
      
      Protected Sub ProcessItemClickedEvent(sender As Object, e As ItemEventArgs)
         FilterMenu(e.Item.ID)
         Dim i As Integer
         For i = 0 To Radmenu1.RootGroup.Items.Count - 1
            Radmenu1.RootGroup.Items(i).ChildGroup.ExpandDirection = ExpandDirection.Right
         Next i
      End Sub 'ProcessItemClickedEvent
      
      
      Protected Sub FilterMenu(rootID As String)
         Dim TempDocument As New XmlDocument()
         TempDocument.Load(Request.MapPath("menu.xml"))
         Dim SelectedNode As XmlNode = TempDocument.SelectSingleNode(("/Menu/Group/descendant::Item[@ID=""" + rootID + """]"))
         If Not (SelectedNode Is Nothing) And SelectedNode.InnerXml <> [String].Empty Then
            Radmenu1.LoadXmlString(("<Menu>" + SelectedNode.InnerXml + "</Menu>"))
         Else
            Radmenu1.RootGroup.Items.Clear()
            Dim EmptyItem As New Telerik.WebControls.MenuItem(Radmenu1.RootGroup)
            EmptyItem.ID = "EmptyItem"
            EmptyItem.Text = "This Item contains no descendants"
            Radmenu1.RootGroup.AddItem(EmptyItem)
         End If
         Dim i As Integer
         For i = 0 To Radmenu1.RootGroup.Items.Count - 1
            Radmenu1.RootGroup.Items(i).ID += "rootitem" + i.ToString()
         Next i
         Radmenu1.RootGroup.Flow = PresentationDirection.Vertical
      End Sub 'FilterMenu
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
   End Class 'DefaultVB 
End Namespace 'Telerik.MenuExamplesVBNET.Menu.Examples.Design.MultipleMenus