defaultvb.aspx.vb

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

Imports System
Imports System.Xml
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.TabStripExamplesVB.Programming.XmlDefinition
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadTabStrip1 As RadTabStrip
      
      
      Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            Dim [source] As New XmlDocument()
            [source].Load(Server.MapPath("TabStrip.xml"))
            PopulateTabStripFromXml(RadTabStrip1, [source])
            RadTabStrip1.SelectedIndex = 0
         End If
      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
      Private Sub PopulateTabStripFromXml(tabStrip As RadTabStrip, [source] As XmlDocument)
         FillTabs(tabStrip.Tabs, [source].DocumentElement)
      End Sub 'PopulateTabStripFromXml
      
      
      Private Sub FillTabs(tabCollection As TabCollection, rootElement As XmlElement)
         Dim child As XmlNode
         For Each child In  rootElement.ChildNodes
            If child.NodeType = XmlNodeType.Element Then
               If child.Name = "Tab" Then
                  Dim tab As New Tab()
                  tab.Text = child.Attributes("Text").Value
                  tabCollection.Add(tab)
                  FillTabs(tab.Tabs, CType(child, XmlElement))
               End If
            End If
         Next child
      End Sub 'FillTabs
   End Class 'DefaultVB
End Namespace 'Telerik.TabStripExamplesVB.Programming.XmlDefinition