defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Globalization
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.InputExamplesVB.Functionality.DatePicker
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
      Protected picker As Telerik.WebControls.RadDateInput
      Protected WithEvents Dropdownlist2 As System.Web.UI.WebControls.DropDownList
      Protected t As System.Web.UI.WebControls.RangeValidator
      Protected but As System.Web.UI.WebControls.Button
      Protected WithEvents CheckBox1 As System.Web.UI.WebControls.CheckBox
      Protected WithEvents CheckBox2 As System.Web.UI.WebControls.CheckBox
      Protected WithEvents RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
      Protected t2 As System.Web.UI.WebControls.RequiredFieldValidator
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not IsPostBack Then
            CheckBox1.Checked = picker.HideOnBlur
            CheckBox2.Checked = picker.AllowEmpty
            If picker.RangeValidation = DateRangeValidation.Immediate Then
               RadioButtonList1.SelectedIndex = 0
            Else
               RadioButtonList1.SelectedIndex = 1
            End If
         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
      Private Sub DropDownList1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
         picker.Culture = New CultureInfo(DropDownList1.Items(DropDownList1.SelectedIndex).Value)
      End Sub 'DropDownList1_SelectedIndexChanged
       '	picker.DateTime = sampleDate;
      
      Private Sub Dropdownlist2_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles Dropdownlist2.SelectedIndexChanged
         picker.DateFormat = Dropdownlist2.Items(Dropdownlist2.SelectedIndex).Value
      End Sub 'Dropdownlist2_SelectedIndexChanged
       '	picker.DateTime = sampleDate;
      
      Private Sub CheckBox1_CheckedChanged(sender As Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
         picker.HideOnBlur = CheckBox1.Checked
      End Sub 'CheckBox1_CheckedChanged
      
      
      Private Sub CheckBox2_CheckedChanged(sender As Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
         picker.AllowEmpty = CheckBox2.Checked
      End Sub 'CheckBox2_CheckedChanged
      
      
      Private Sub RadioButtonList1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged
         If RadioButtonList1.SelectedIndex = 0 Then
            picker.RangeValidation = DateRangeValidation.Immediate
         Else
            picker.RangeValidation = DateRangeValidation.OnBlur
         End If
      End Sub 'RadioButtonList1_SelectedIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.InputExamplesVB.Functionality.DatePicker