defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.IO
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart


Namespace Telerik.TabStripExamplesVB.Appearance.Horizontal
   
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents RadioButtonList1 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
         If Not Page.IsPostBack Then
            
            Dim skinsFolder As String = Server.MapPath(RadTabStrip1.SkinsPath)
            
            Dim skinsDirectory As New DirectoryInfo(skinsFolder)
            
            Dim skins As New ArrayList()
            Dim skin As DirectoryInfo
            For Each skin In  skinsDirectory.GetDirectories()
               If Not skin.Name.ToLower().StartsWith("vertical") And skin.Name <> "DifferentTabs" Then
                  skins.Add(skin)
               End If
            Next skin
            RadioButtonList1.DataSource = skins
            RadioButtonList1.DataBind()
            
            Dim selected As ListItem = RadioButtonList1.Items.FindByValue(RadTabStrip1.Skin)
            selected.Selected = True
         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 RadioButtonList1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged
         RadTabStrip1.Skin = RadioButtonList1.Items(RadioButtonList1.SelectedIndex).Value
      End Sub 'RadioButtonList1_SelectedIndexChanged
      
      
      Private Sub DefaultCS_PreRender(sender As Object, e As EventArgs) Handles MyBase.PreRender
         Dim item As ListItem
         For Each item In  RadioButtonList1.Items
            item.Text = String.Format("<img src='thumbnails/{0}.gif' alt='' onclick='this.parentNode.click();'/> {0}", item.Value)
         Next item
      End Sub 'DefaultCS_PreRender
   End Class 'DefaultVB
End Namespace 'Telerik.TabStripExamplesVB.Appearance.Horizontal