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 System.Collections.Specialized



Namespace Telerik.WindowExamplesVB.WindowManager
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected Singleton As Telerik.WebControls.RadWindowManager
      Protected SkinDropdown As System.Web.UI.WebControls.DropDownList
      Protected WithEvents SubmitButton As System.Web.UI.WebControls.Button
      Protected LanguageList As System.Web.UI.WebControls.DropDownList
      Protected VisibleOnPageLoadCheck As System.Web.UI.WebControls.CheckBox
      Protected InitialBehaviorList As System.Web.UI.WebControls.DropDownList
      Protected SingleNonMinimizedWindowCheck As System.Web.UI.WebControls.CheckBox
      Protected UseClassicWindowsCheck As System.Web.UI.WebControls.CheckBox
      Protected OffsetElementList As System.Web.UI.WebControls.DropDownList
      Protected MinimizeZoneList As System.Web.UI.WebControls.DropDownList
      
      Private languageHash As New Hashtable()
      
      
      Public Sub New()
         languageHash.Add("en-US", "English")
         languageHash.Add("fr-FR", "Francais")
         languageHash.Add("de-DE", "Deutch")
      End Sub 'New
      
      
      Private Function GetLangName(langKey As String) As String
         If Not (languageHash(langKey) Is Nothing) Then
            Return CStr(languageHash(langKey))
         Else
            Return langKey
         End If
      End Function 'GetLangName
       
      Private Sub SelectListItem(list As System.Web.UI.WebControls.ListControl, val As String)
         Dim item As ListItem = list.Items.FindByValue(val)
         If Not (item Is Nothing) Then
            list.SelectedIndex = - 1
            item.Selected = True
         End If
      End Sub 'SelectListItem
      
      
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            'Load available skins
            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
            
            'Load available localizations
            path = Server.MapPath((Singleton.RadControlsDir + "/Window/Localization"))
            Dim langDirs As String() = System.IO.Directory.GetDirectories(path)
            
            Dim lang As String
            For Each lang In  langDirs
               Dim langKey As String = lang.Substring((lang.LastIndexOf("\") + 1))
               Dim langName As String = GetLangName(langKey)
               Me.LanguageList.Items.Add(New ListItem(langName, langKey))
            Next lang
            
            Me.SelectListItem(SkinDropdown, Me.Singleton.Skin) 'Set selected skin
            Me.SelectListItem(LanguageList, Me.Singleton.Language) 'Set selected language
            Me.SelectListItem(OffsetElementList, Me.Singleton.OffsetElementId)
            Me.SelectListItem(MinimizeZoneList, Me.Singleton.MinimizeZoneId)
            
            Me.SelectListItem(InitialBehaviorList, CStr([Enum].Format(GetType(Telerik.WebControls.RadWindowBehaviorFlags), Me.Singleton.InitialBehavior, "G")))
            
            Me.VisibleOnPageLoadCheck.Checked = Me.Singleton.VisibleOnPageLoad
            Me.SingleNonMinimizedWindowCheck.Checked = Me.Singleton.SingleNonMinimizedWindow
            Me.UseClassicWindowsCheck.Checked = Me.Singleton.UseClassicWindows
         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 SubmitButton_Click(sender As Object, e As System.EventArgs) Handles SubmitButton.Click
         '
         Me.Singleton.Skin = Me.SkinDropdown.SelectedItem.Value
         Me.Singleton.Language = Me.LanguageList.SelectedItem.Value
         Me.Singleton.OffsetElementId = Me.OffsetElementList.SelectedItem.Value
         Me.Singleton.MinimizeZoneId = Me.MinimizeZoneList.SelectedItem.Value
         
         If Me.Singleton.MinimizeZoneId <> String.Empty Then
            Me.Singleton.MinimizeMode = Telerik.WebControls.RadWindowMinimizeModes.MinimizeZone
         Else
            Me.Singleton.MinimizeMode = Telerik.WebControls.RadWindowMinimizeModes.Default
         End If 
         Me.Singleton.InitialBehavior = CType([Enum].Parse(GetType(Telerik.WebControls.RadWindowBehaviorFlags), Me.InitialBehaviorList.SelectedItem.Value), Telerik.WebControls.RadWindowBehaviorFlags)
         Me.Singleton.VisibleOnPageLoad = Me.VisibleOnPageLoadCheck.Checked
         Me.Singleton.SingleNonMinimizedWindow = Me.SingleNonMinimizedWindowCheck.Checked
         Me.Singleton.UseClassicWindows = Me.UseClassicWindowsCheck.Checked
      End Sub 'SubmitButton_Click
   End Class 'DefaultVB 
End Namespace 'Telerik.WindowExamplesVB.WindowManager