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



Namespace Telerik.CalendarExamplesVB.Design.CustomHeaderAndFooter
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents calendarCheckIn As Telerik.WebControls.RadCalendar
      Private _headerImage As System.Web.UI.WebControls.Literal = Nothing
      Private _footerImage As System.Web.UI.WebControls.Literal = Nothing
      Private imageStr As String = "<img src=""{0}"" alt=""{1}"" />"
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         _headerImage = CType(calendarCheckIn.FindControl("HeaderImage"), Literal)
         _footerImage = CType(calendarCheckIn.FindControl("FooterImage"), Literal)
         ProcessImages(calendarCheckIn.CalendarView)
      End Sub 'Page_Load
      
      
      Private Sub ProcessImages(inputView As CalendarView)
         Dim monthView As MonthView = CType(inputView, MonthView)
         Select Case monthView.MonthStartDate.Month
            Case 12, 1, 2
               _headerImage.Text = [String].Format(imageStr, "ExampleFiles/winter_header.gif", "changing the header template")
               _footerImage.Text = [String].Format(imageStr, "ExampleFiles/winter_footer.gif", "changing the footer template")
            Case 5, 3, 4
               _headerImage.Text = [String].Format(imageStr, "ExampleFiles/spring_header.gif", "changing the header template")
               _footerImage.Text = [String].Format(imageStr, "ExampleFiles/spring_footer.gif", "changing the footer template")
            Case 8, 6, 7
               _headerImage.Text = [String].Format(imageStr, "ExampleFiles/summer_header.gif", "changing the header template")
               _footerImage.Text = [String].Format(imageStr, "ExampleFiles/summer_footer.gif", "changing the footer template")
            Case 11, 9, 10
               _headerImage.Text = [String].Format(imageStr, "ExampleFiles/fall_header.gif", "changing the header template")
               _footerImage.Text = [String].Format(imageStr, "ExampleFiles/fall_footer.gif", "changing the footer template")
         End Select
      End Sub 'ProcessImages
      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 calendarCheckIn_DefaultViewChanged(sender As Object, e As Telerik.WebControls.Base.Calendar.Events.DefaultViewChangedEventArgs) Handles calendarCheckIn.DefaultViewChanged
         ProcessImages(e.NewView)
      End Sub 'calendarCheckIn_DefaultViewChanged
   End Class 'DefaultVB
End Namespace 'Telerik.CalendarExamplesVB.Design.CustomHeaderAndFooter