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.XmlStringPopulation
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected RadMenu1 As RadMenu
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         Dim sb As New StringBuilder()
         sb.Append("<Menu>")
         sb.Append("   <Group>")
         sb.Append("      <Item Text='Dynamic' CssClass='MainItem' CssClassOver='MainItemOver' RightLogo='arrow_right.gif'>")
         sb.Append("         <Group>")
         sb.Append("            <Item Text='String' />")
         sb.Append("            <Item Text='Binding' />")
         sb.Append("         </Group>")
         sb.Append("      </Item>")
         sb.Append("      <Item Text='Unlimited' CssClass='MainItem' CssClassOver='MainItemOver' RightLogo='arrow_right.gif'> ")
         sb.Append("         <Group>")
         sb.Append("            <Item Text='Flexibility' />")
         sb.Append("            <Item Text='At runtime' />")
         sb.Append("         </Group>")
         sb.Append("      </Item>")
         sb.Append("   </Group>")
         sb.Append("</Menu>")
         
         Dim dynamicXmlStringBinder As [String] = sb.ToString()
         
         RadMenu1.LoadXmlString(dynamicXmlStringBinder)
      End Sub 'Page_Load
      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.XmlStringPopulation