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


Namespace Telerik.WindowExamplesVB.BrowserDialogBoxes
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected Singleton As Telerik.WebControls.RadWindowManager
      Protected WithEvents SkinDropdown As System.Web.UI.WebControls.DropDownList
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            Dim path As String = Server.MapPath((Singleton.RadControlsDir + "/Window/Skins"))
            Dim skinDirs As String() = System.IO.Directory.GetDirectories(path)
            
            Dim skin As String
            For Each skin In  skinDirs
               Dim theSkin As String = skin.Substring((skin.LastIndexOf("\") + 1))
               Me.SkinDropdown.Items.Add(New ListItem(theSkin, theSkin))
            Next skin
         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
      
      
      '/		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 SkinDropdown_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles SkinDropdown.SelectedIndexChanged
         Me.Singleton.Skin = Me.SkinDropdown.SelectedItem.Value
      End Sub 'SkinDropdown_SelectedIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.WindowExamplesVB.BrowserDialogBoxes