70 lines
4.3 KiB
VB.net
70 lines
4.3 KiB
VB.net
'
|
|
'{************************************************************************************}
|
|
'{ }
|
|
'{ DO NOT MODIFY THIS FILE! }
|
|
'{ }
|
|
'{ It will be overwritten without prompting when a new version becomes }
|
|
'{ available. All your changes will be lost. }
|
|
'{ }
|
|
'{ This file contains the default template and is required for the form }
|
|
'{ rendering. Improper modifications may result in incorrect behavior of }
|
|
'{ the appointment form. }
|
|
'{ }
|
|
'{ In order to create and use your own custom template, perform the following }
|
|
'{ steps: }
|
|
'{ 1. Save a copy of this file with a different name in another location. }
|
|
'{ 2. Specify the file location as the 'OptionsForms.GotoDateFormTemplateUrl' }
|
|
'{ property of the ASPxScheduler control. }
|
|
'{ 3. If you need to display and process additional controls, you }
|
|
'{ should accomplish steps 4-6; otherwise, go to step 7. }
|
|
'{ 4. Create a class, derived from the GotoDateFormTemplateContainer, }
|
|
'{ containing additional properties which correspond to your controls. }
|
|
'{ This class definition can be located within a class file in the App_Code }
|
|
'{ folder. }
|
|
'{ 5. Replace GotoDateFormTemplateContainer references in the template page }
|
|
'{ with the name of the class you've created in step 4. }
|
|
'{ 6. Handle the GotoDateFormShowing event to create an instance of the }
|
|
'{ template container class, defined in step 5, and specify it as the }
|
|
'{ destination container instead of the default one. }
|
|
'{ 7. Modify the overall appearance of the page and its layout. }
|
|
'{ }
|
|
'{************************************************************************************}
|
|
'
|
|
|
|
|
|
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports DevExpress.Web
|
|
Imports DevExpress.Web.ASPxScheduler
|
|
|
|
Partial Public Class GotoDateForm
|
|
Inherits SchedulerFormControl
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
|
|
'PrepareChildControls();
|
|
edtDate.Focus()
|
|
End Sub
|
|
|
|
Public Overrides Sub DataBind()
|
|
MyBase.DataBind()
|
|
Dim container As GotoDateFormTemplateContainer = CType(Parent, GotoDateFormTemplateContainer)
|
|
cbView.Value = container.ActiveViewType.ToString()
|
|
|
|
btnOk.ClientSideEvents.Click = container.ApplyHandler
|
|
btnCancel.ClientSideEvents.Click = container.CancelHandler
|
|
|
|
Dim scheduler As ASPxScheduler = container.Control
|
|
Dim actualSchedulerInstanceName As String = scheduler.ClientInstanceName
|
|
If String.IsNullOrEmpty(actualSchedulerInstanceName) Then
|
|
actualSchedulerInstanceName = scheduler.ClientID
|
|
End If
|
|
edtDate.ClientSideEvents.LostFocus = String.Format("function(s,e) {{" & ControlChars.CrLf & " var date = s.GetDate();" & ControlChars.CrLf & " if (date == null || date == false) {{" & ControlChars.CrLf & " var selectionInterval = {0}.GetSelectedInterval();" & ControlChars.CrLf & " var startDate = selectionInterval.GetStart();" & ControlChars.CrLf & " s.SetDate(startDate);" & ControlChars.CrLf & " }}" & ControlChars.CrLf & " }}", actualSchedulerInstanceName)
|
|
End Sub
|
|
Protected Overrides Function GetChildEditors() As ASPxEditBase()
|
|
Dim edits() As ASPxEditBase = { lblDate, edtDate, lblView, cbView }
|
|
Return edits
|
|
End Function
|
|
Protected Overrides Function GetChildButtons() As ASPxButton()
|
|
Dim buttons() As ASPxButton = { btnOk, btnCancel }
|
|
Return buttons
|
|
End Function
|
|
End Class |