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


Namespace Telerik.CalendarExamplesVBNET.Functionality.SharedCalendar
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected validator1 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected Raddatepicker2 As Telerik.WebControls.RadDatePicker
      Protected Requiredfieldvalidator1 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected CompareValidator1 As System.Web.UI.WebControls.CompareValidator
      Protected Button1 As System.Web.UI.WebControls.Button
      Protected sharedCalendar As Telerik.WebControls.RadCalendar
      Protected Raddatepicker3 As Telerik.WebControls.RadDatePicker
      Protected Raddatepicker4 As Telerik.WebControls.RadDatePicker
      Protected sharedCalendarPlaceHolder As System.Web.UI.WebControls.PlaceHolder
      Protected RadDatePicker1 As Telerik.WebControls.RadDatePicker
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         Dim hardToFindCalendar As New RadCalendar()
         hardToFindCalendar.ID = "sharedDynamicCalendar"
         hardToFindCalendar.EnableMultiSelect = False
         hardToFindCalendar.RangeMinDate = New DateTime(2006, 1, 1)
         sharedCalendarPlaceHolder.Controls.Add(hardToFindCalendar)
         
         Raddatepicker3.SharedCalendar = hardToFindCalendar
         Raddatepicker4.SharedCalendar = hardToFindCalendar
      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
   End Class 'DefaultVB 
End Namespace 'Telerik.CalendarExamplesVBNET.Functionality.SharedCalendar