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.QuickStart
Imports Telerik.WebControls


Namespace Telerik.TabStripExamplesVB.Functionality.Alignment
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents Radiobuttonlist1 As System.Web.UI.WebControls.RadioButtonList
      Protected WithEvents Radiobuttonlist2 As System.Web.UI.WebControls.RadioButtonList
      Protected RadTabStrip1 As Telerik.WebControls.RadTabStrip
      
      
      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
      Private Sub Radiobuttonlist2_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles Radiobuttonlist2.SelectedIndexChanged
         Select Case Radiobuttonlist2.Items(Radiobuttonlist2.SelectedIndex).Text
            Case "Left"
               RadTabStrip1.Align = TabStripAlign.Left
            Case "Right"
               RadTabStrip1.Align = TabStripAlign.Right
            Case "Center"
               RadTabStrip1.Align = TabStripAlign.Center
            Case "Justify"
               RadTabStrip1.Align = TabStripAlign.Justify
         End Select
      End Sub 'Radiobuttonlist2_SelectedIndexChanged
      
      
      Private Sub Radiobuttonlist1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles Radiobuttonlist1.SelectedIndexChanged
         Select Case Radiobuttonlist1.Items(Radiobuttonlist1.SelectedIndex).Text
            Case "Vertical"
               RadTabStrip1.Orientation = RadTabStripOrientation.VerticalLeftToRight
               RadTabStrip1.Skin = "VerticalSimple"
            Case "Horizontal"
               RadTabStrip1.Orientation = RadTabStripOrientation.HorizontalTopToBottom
               RadTabStrip1.Skin = "WinXP"
         End Select
      End Sub 'Radiobuttonlist1_SelectedIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.TabStripExamplesVB.Functionality.Alignment