defaultvb.aspx.vb

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

Imports System
Imports System.Web.UI.WebControls
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.TabStripExamplesVB.Programming.AddRemoveDisable
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents Button1 As System.Web.UI.WebControls.Button
      Protected WithEvents Button2 As System.Web.UI.WebControls.Button
      Protected WithEvents Button3 As System.Web.UI.WebControls.Button
      Protected WithEvents Button4 As System.Web.UI.WebControls.Button
      Protected RadTabStrip2 As Telerik.WebControls.RadTabStrip
      Protected RadTabStrip3 As Telerik.WebControls.RadTabStrip
      Protected WithEvents Button5 As System.Web.UI.WebControls.Button
      Protected RadTabStrip1 As RadTabStrip
      
      
      Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            FillTabStrip(RadTabStrip1)
            FillTabStrip(RadTabStrip2)
            FillTabStrip(RadTabStrip3)
         End If
      End Sub 'Page_Load
      
      
      Private Sub FillTabStrip(tabStrip As RadTabStrip)
         Dim i As Integer
         For i = 0 To 3
            Dim tab As New Tab()
            tab.Text = String.Format("Root Level Tab {0}", i)
            tabStrip.Tabs.Add(tab)
         Next i
         tabStrip.SelectedIndex = 0
      End Sub 'FillTabStrip
      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 Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
         Dim currentTab As Tab = RadTabStrip1.InnerMostSelectedTab
         
         If Not (currentTab Is Nothing) Then
            Dim child As New Tab()
            child.Width = Unit.Pixel(60)
            currentTab.Tabs.Add(child)
            child.Text = String.Format("Child Tab {0}", currentTab.Tabs.Count)
         End If
      End Sub 'Button1_Click
      
      
      Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
         Dim currentTab As Tab = RadTabStrip2.InnerMostSelectedTab
         
         If Not (currentTab Is Nothing) Then
            Dim owner As ITabContainer = currentTab.Owner
            owner.Tabs.Remove(currentTab)
            If owner.Tabs.Count > 0 Then
               owner.SelectedIndex = 0
            End If
         End If
      End Sub 'Button2_Click
      
      
      Private Sub Button3_Click(sender As Object, e As System.EventArgs) Handles Button3.Click
         Dim currentTab As Tab = RadTabStrip3.InnerMostSelectedTab
         
         If Not (currentTab Is Nothing) Then
            currentTab.Enabled = False
         End If
      End Sub 'Button3_Click
      
      
      Private Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click
         RadTabStrip2.Tabs.Clear()
         FillTabStrip(RadTabStrip2)
      End Sub 'Button4_Click
      
      
      Private Sub Button5_Click(sender As Object, e As System.EventArgs) Handles Button5.Click
         RadTabStrip3.Tabs.Clear()
         FillTabStrip(RadTabStrip3)
      End Sub 'Button5_Click
   End Class 'DefaultVB
End Namespace 'Telerik.TabStripExamplesVB.Programming.AddRemoveDisable