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.DayRenderEvent
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents Radcalendar2 As Telerik.WebControls.RadCalendar
      Protected ColorList As System.Web.UI.WebControls.DropDownList
      Protected DatesList As System.Web.UI.WebControls.DropDownList
      Protected DayString As System.Web.UI.WebControls.TextBox
      Protected LinkButton1 As System.Web.UI.WebControls.LinkButton
      
      Private DayOfMonth As Integer
      Private backgroundColor As String = [String].Empty
      Private eventString As String = [String].Empty
      
      Private startDate As DateTime
      Private endDate As DateTime
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         DayOfMonth = Int32.Parse(DatesList.Items(DatesList.SelectedIndex).Value)
         backgroundColor = ColorList.Items(ColorList.SelectedIndex).Value
         eventString = DayString.Text
      End Sub 'Page_Load
      
      
      Protected Overrides Sub OnPreRender(e As EventArgs)
         MyBase.OnPreRender(e)
         
         startDate = CType(Radcalendar2.CalendarView, MonthView).MonthStartDate
         endDate = CType(Radcalendar2.CalendarView, MonthView).MonthEndDate
      End Sub 'OnPreRender
      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 CustomizeDay(sender As Object, e As Telerik.WebControls.Base.Calendar.Events.DayRenderEventArgs) Handles Radcalendar2.DayRender
         Dim CurrentDate As DateTime = e.Day.Date
         If startDate <= CurrentDate And CurrentDate <= endDate Then
            If CurrentDate.Day = DayOfMonth Then
               Dim currentCell As TableCell = e.Cell
               currentCell.Style("background-color") = backgroundColor
               currentCell.Text = eventString
            End If
         End If
      End Sub 'CustomizeDay
   End Class 'DefaultVB
End Namespace 'Telerik.ExamplesVBNET.RadCalendar.Programming.DayRenderEvent