defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 64 行

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.ExamplesVBNET.RadCalendar.Functionality.Custyomization
   
   '/ <summary>
   '/ Summary description for DefaultCS
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents RadDatepicker1 As Telerik.WebControls.RadDatePicker
      Protected WithEvents RadDatepicker2 As Telerik.WebControls.RadDatePicker
      
      
      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 RadDatepicker1_ChildrenCreated(sender As Object, e As System.EventArgs) Handles RadDatepicker1.ChildrenCreated
         Dim picker As RadDatePicker = CType(sender, RadDatePicker)
         
         Dim clearLink As New HyperLink()
         clearLink.NavigateUrl = String.Format("javascript:window.{0}.DateInput.Clear()", picker.ClientID)
         clearLink.Text = "Clear"
         
         picker.Controls.Add(clearLink)
      End Sub 'RadDatepicker1_ChildrenCreated
      
      
      Private Sub RadDatepicker2_ChildrenCreated(sender As Object, e As EventArgs) Handles RadDatepicker2.ChildrenCreated
         Dim picker As RadDatePicker = CType(sender, RadDatePicker)
         
         Dim clearButton As New Button()
         clearButton.Attributes("onclick") = String.Format("window.{0}.DateInput.Clear(); return false;", picker.ClientID)
         clearButton.Text = "Clear"
         
         picker.Controls.Add(clearButton)
      End Sub 'RadDatepicker2_ChildrenCreated
   End Class 'DefaultVB
End Namespace 'Telerik.ExamplesVBNET.RadCalendar.Functionality.Custyomization