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.Text


Namespace Telerik.MenuExamplesVBNET.Menu.Examples.Design.BreadCrumb
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      
      Protected Menu1 As RadMenu
      Protected Menu2 As RadMenu
      Protected BreadCrumbLiteral As System.Web.UI.WebControls.Literal
      Protected Button1 As System.Web.UI.WebControls.Button
      
      
      Protected Sub ProcessItemClickedEvent(sender As Object, e As ItemEventArgs)
         Dim ItemClicked As Telerik.WebControls.MenuItem = e.Item
         Dim PathList As ArrayList = ItemClicked.FullPathToTop()
         Dim BreadCrumbBuilder As New StringBuilder()
         
         BreadCrumbBuilder.Append("<table style=""width:100%;""><tr><td style='font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif;'>")
         
         Dim i As Integer
         For i = PathList.Count - 1 To 0 Step -1
            If TypeOf PathList(i) Is MenuGroup Then
               BreadCrumbBuilder.Append("<span style='color: #FF0000'><b>")
               If Not (CType(PathList(i), MenuGroup).ParentItem Is Nothing) Then
                  BreadCrumbBuilder.Append((CType(PathList(i), MenuGroup).ParentItem.Text + "'s"))
                  BreadCrumbBuilder.Append((" child Group:" + CType(PathList(i), MenuGroup).ID + "</b>&nbsp;>&nbsp;</span>"))
               Else
                  BreadCrumbBuilder.Append("Root Group</b>&nbsp;>&nbsp;</span>")
               End If
            ElseIf TypeOf PathList(i) Is Telerik.WebControls.MenuItem Then
               BreadCrumbBuilder.Append(("<span style='color: #009933'><b>" + CType(PathList(i), Telerik.WebControls.MenuItem).Text + "</b>&nbsp;>&nbsp;</span>"))
            End If
         Next i
         BreadCrumbBuilder.Append("</td></tr></table>")
         
         BreadCrumbLiteral.Text = BreadCrumbBuilder.ToString()
      End Sub 'ProcessItemClickedEvent
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      
      ' Put user code to initialize the page here
      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.BreadCrumb