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.WebControls.Base.Calendar.Enumerations


Namespace Telerik.CalendarExamplesVBNET.Calendar.Examples.Functionality.MainAreaCustomization
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected Radcalendar2 As Telerik.WebControls.RadCalendar
      Protected WithEvents chkUseDaysAsSelectors As System.Web.UI.WebControls.CheckBox
      Protected WithEvents chkUseWeekNumbersAsSelectors As System.Web.UI.WebControls.CheckBox
      Protected WithEvents chkEnableMultiSelect As System.Web.UI.WebControls.CheckBox
      Protected WithEvents chkEnableColumnSelectors As System.Web.UI.WebControls.CheckBox
      Protected WithEvents chkEnableRowSelectors As System.Web.UI.WebControls.CheckBox
      Protected WithEvents chkEnableViewSelector As System.Web.UI.WebControls.CheckBox
      Protected WithEvents ddlMonthLayout 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
            UpdateControls()
         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
      Sub UpdateControls()
         chkEnableMultiSelect.Checked = Radcalendar2.EnableMultiSelect
         chkEnableViewSelector.Checked = Radcalendar2.EnableViewSelector
         chkEnableColumnSelectors.Checked = Radcalendar2.EnableColumnSelectors
         chkUseDaysAsSelectors.Checked = Radcalendar2.UseDaysAsSelectors
         chkEnableRowSelectors.Checked = Radcalendar2.EnableRowSelectors
         chkUseWeekNumbersAsSelectors.Checked = Radcalendar2.UseDaysAsSelectors
         
         Dim selectedIndex As Integer = 0
         Dim i As Integer
         For i = 0 To ddlMonthLayout.Items.Count - 1
            Dim monthLayout As MonthLayout = CType(System.Enum.Parse(GetType(MonthLayout), ddlMonthLayout.Items(i).Value), MonthLayout)
            If monthLayout = Radcalendar2.MonthLayout Then
               selectedIndex = i
            End If
         Next i
         ddlMonthLayout.SelectedIndex = selectedIndex
      End Sub 'UpdateControls
      
      
      Private Sub chkUseDaysAsSelectors_CheckedChanged(sender As Object, e As EventArgs) Handles chkUseDaysAsSelectors.CheckedChanged
         Radcalendar2.UseDaysAsSelectors = chkUseDaysAsSelectors.Checked
      End Sub 'chkUseDaysAsSelectors_CheckedChanged
      
      
      Private Sub chkUseWeekNumbersAsSelectors_CheckedChanged(sender As Object, e As EventArgs) Handles chkUseWeekNumbersAsSelectors.CheckedChanged
         Radcalendar2.UseWeekNumbersAsSelectors = chkUseWeekNumbersAsSelectors.Checked
      End Sub 'chkUseWeekNumbersAsSelectors_CheckedChanged
      
      
      Private Sub chkEnableMultiSelect_CheckedChanged(sender As Object, e As EventArgs) Handles chkEnableMultiSelect.CheckedChanged
         Radcalendar2.EnableMultiSelect = chkEnableMultiSelect.Checked
      End Sub 'chkEnableMultiSelect_CheckedChanged
      
      
      Private Sub chkEnableColumnSelectors_CheckedChanged(sender As Object, e As EventArgs) Handles chkEnableColumnSelectors.CheckedChanged
         Dim IsChecked As Boolean = chkEnableColumnSelectors.Checked
         Radcalendar2.EnableColumnSelectors = IsChecked
         Radcalendar2.UseDaysAsSelectors = IsChecked
         chkUseDaysAsSelectors.Checked = IsChecked
         chkUseDaysAsSelectors.Enabled = IsChecked
      End Sub 'chkEnableColumnSelectors_CheckedChanged
      
      
      Private Sub chkEnableRowSelectors_CheckedChanged(sender As Object, e As EventArgs) Handles chkEnableRowSelectors.CheckedChanged
         Dim IsChecked As Boolean = chkEnableRowSelectors.Checked
         Radcalendar2.EnableRowSelectors = IsChecked
         Radcalendar2.UseWeekNumbersAsSelectors = IsChecked
         chkUseWeekNumbersAsSelectors.Checked = IsChecked
         chkUseWeekNumbersAsSelectors.Enabled = IsChecked
      End Sub 'chkEnableRowSelectors_CheckedChanged
      
      
      Private Sub chkEnableViewSelector_CheckedChanged(sender As Object, e As EventArgs) Handles chkEnableViewSelector.CheckedChanged
         Radcalendar2.EnableViewSelector = chkEnableViewSelector.Checked
      End Sub 'chkEnableViewSelector_CheckedChanged
      
      
      Private Sub ddlMonthLayout_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlMonthLayout.SelectedIndexChanged
         Dim monthLayout As MonthLayout = CType(System.Enum.Parse(GetType(MonthLayout), ddlMonthLayout.Items(ddlMonthLayout.SelectedIndex).Value), MonthLayout)
         Radcalendar2.MonthLayout = monthLayout
      End Sub 'ddlMonthLayout_SelectedIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.CalendarExamplesVBNET.Calendar.Examples.Functionality.MainAreaCustomization