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
Imports Telerik.WebControls.Base.Calendar
Imports Telerik.WebControls.Base.Calendar.Events


Namespace Telerik.ExamplesVBNET.RadCalendar.Programming.ServerSideEvents
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents Radcalendar2 As Telerik.WebControls.RadCalendar
      Protected Label1 As System.Web.UI.WebControls.Label
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      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 SelectedDateChange(sender As Object, e As Telerik.WebControls.Base.Calendar.Events.SelectedDatesEventArgs) Handles Radcalendar2.SelectionChanged
         Label1.Text = "Selected dates are:<br />"
         Dim i As Integer
         For i = 0 To e.SelectedDates.Count - 1
            Label1.Text += e.SelectedDates(i).Date.ToString() + ",<br />"
         Next i
         Label1.Text += "<br /><br /><br />SelectionChanged event fired."
      End Sub 'SelectedDateChange
      
      
      Private Sub NavigationChanged(sender As Object, e As Telerik.WebControls.Base.Calendar.Events.DefaultViewChangedEventArgs) Handles Radcalendar2.DefaultViewChanged
         Label1.Text = "Default view changed to:<br />"
         Label1.Text += Radcalendar2.CalendarView.TitleContent
         Label1.Text += "<br /><br /><br />DefaultViewChanged event fired."
      End Sub 'NavigationChanged
   End Class 'DefaultVB 
End Namespace 'Telerik.ExamplesVBNET.RadCalendar.Programming.ServerSideEvents