defaultvb.aspx.vb

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

Imports System


Namespace Telerik.ExamplesVBNET.RadCalendar.Programming.ClientSideAPI
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected SingleDatesList As System.Web.UI.WebControls.RadioButtonList
      Protected MultiDatesList As System.Web.UI.WebControls.CheckBoxList
      Protected MultiSelectCheckBox As System.Web.UI.WebControls.CheckBox
      Protected MultiSelectLabel As System.Web.UI.WebControls.Label
      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 dates() As String = {"2006/6/1", "2006/6/2", "2006/7/3", "2006/7/4", "2006/8/5", "2006/8/6"}
            
            SingleDatesList.DataSource = dates
            SingleDatesList.DataBind()
            
            MultiDatesList.DataSource = dates
            MultiDatesList.DataBind()
            
            MultiSelectCheckBox.Checked = RadCalendar1.EnableMultiSelect
         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
      Protected Sub MultiSelectCheckBox_CheckedChanged(sender As Object, e As System.EventArgs)
         RadCalendar1.EnableMultiSelect = MultiSelectCheckBox.Checked
      End Sub 'MultiSelectCheckBox_CheckedChanged
   End Class 'DefaultVB
End Namespace 'Telerik.ExamplesVBNET.RadCalendar.Programming.ClientSideAPI