defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 59 行

Imports System
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.TabStripExamplesVB.Programming.ServerSideAPI
   
   '/ <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 i As Integer
            For i = 0 To 3
               Dim rootTab As Tab = CreateRootTab((i + 1))
               CreateChildren(rootTab)
            Next i
            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 Function CreateRootTab(index As Integer) As Tab
         Dim tab As New Tab()
         tab.Text = String.Format("Tab {0}", index)
         RadTabStrip1.Tabs.Add(tab)
         Return tab
      End Function 'CreateRootTab
      
      
      Private Sub CreateChildren(parent As Tab)
         Dim i As Integer
         For i = 0 To 3
            Dim child As New Tab()
            child.Text = String.Format("{0}.{1}", parent.Text, i)
            parent.Tabs.Add(child)
         Next i
      End Sub 'CreateChildren
   End Class 'DefaultVB
End Namespace 'Telerik.TabStripExamplesVB.Programming.ServerSideAPI