defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Globalization
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls


Namespace Telerik.ExamplesVBNET.RadCalendar.Functionality.Globalization
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents CulturesList As System.Web.UI.WebControls.DropDownList
      Protected calendar1 As Telerik.WebControls.RadCalendar
      Protected RadCalendar1 As Telerik.WebControls.RadCalendar
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            Dim cultures As New SortedList()
            Dim ci As CultureInfo
            For Each ci In  CultureInfo.GetCultures(CultureTypes.SpecificCultures)
               cultures.Add(ci.EnglishName, ci.Name)
            Next ci
            
            Dim cultureName As String
            For Each cultureName In  cultures.Keys
               CulturesList.Items.Add(New ListItem(cultureName, cultures(cultureName).ToString()))
            Next cultureName
            
            RadCalendar1.CultureInfo = CultureInfo.CurrentCulture
            CulturesList.SelectedIndex = CulturesList.Items.IndexOf(CulturesList.Items.FindByText(CultureInfo.CurrentCulture.EnglishName))
         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 CulturesList_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles CulturesList.SelectedIndexChanged
         RadCalendar1.CultureInfo = New CultureInfo(CulturesList.Items(CulturesList.SelectedIndex).Value)
      End Sub 'CulturesList_SelectedIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.ExamplesVBNET.RadCalendar.Functionality.Globalization