Type | Description | |||
Date | A DATE expression that specifies the upper margin that the calendar can browse. |
The samples shows how you can limit the schedule view to a single month.
VBA (MS Access, Excell...)
With Schedule1 .ScrollBars = 0 .AllowMoveSchedule = 0 With .Calendar .Selection = #1/10/2001# .MinDate = #1/1/2001# .MaxDate = #1/31/2001# End With End With
VB6
With Schedule1 .ScrollBars = exNoScroll .AllowMoveSchedule = exDisallow With .Calendar .Selection = #1/10/2001# .MinDate = #1/1/2001# .MaxDate = #1/31/2001# End With End With
VB.NET
With Exschedule1 .ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll .AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow With .Calendar .Selection = #1/10/2001# .MinDate = #1/1/2001# .MaxDate = #1/31/2001# End With End With
VB.NET for /COM
With AxSchedule1 .ScrollBars = EXSCHEDULELib.ScrollBarsEnum.exNoScroll .AllowMoveSchedule = EXSCHEDULELib.AllowKeysEnum.exDisallow With .Calendar .Selection = #1/10/2001# .MinDate = #1/1/2001# .MaxDate = #1/31/2001# End With End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXSCHEDULELib' for the library: 'ExSchedule 1.0 Control Library' #import <ExSchedule.dll> using namespace EXSCHEDULELib; */ EXSCHEDULELib::ISchedulePtr spSchedule1 = GetDlgItem(IDC_SCHEDULE1)->GetControlUnknown(); spSchedule1->PutScrollBars(EXSCHEDULELib::exNoScroll); spSchedule1->PutAllowMoveSchedule(EXSCHEDULELib::exDisallow); EXSCHEDULELib::ICalendarPtr var_Calendar = spSchedule1->GetCalendar(); var_Calendar->PutSelection("1/10/2001"); var_Calendar->PutMinDate("1/1/2001"); var_Calendar->PutMaxDate("1/31/2001");
C++ Builder
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exNoScroll; Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow; Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar; var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double())); var_Calendar->MinDate = TDateTime(2001,1,1).operator double(); var_Calendar->MaxDate = TDateTime(2001,1,31).operator double();
C#
exschedule1.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll; exschedule1.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow; exontrol.EXSCHEDULELib.Calendar var_Calendar = exschedule1.Calendar; var_Calendar.Selection = Convert.ToDateTime("1/10/2001",System.Globalization.CultureInfo.GetCultureInfo("en-US")); var_Calendar.MinDate = Convert.ToDateTime("1/1/2001",System.Globalization.CultureInfo.GetCultureInfo("en-US")); var_Calendar.MaxDate = Convert.ToDateTime("1/31/2001",System.Globalization.CultureInfo.GetCultureInfo("en-US"));
JavaScript
<OBJECT classid="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT> <SCRIPT LANGUAGE="JScript"> Schedule1.ScrollBars = 0; Schedule1.AllowMoveSchedule = 0; var var_Calendar = Schedule1.Calendar; var_Calendar.Selection = "1/10/2001"; var_Calendar.MinDate = "1/1/2001"; var_Calendar.MaxDate = "1/31/2001"; </SCRIPT>
C# for /COM
axSchedule1.ScrollBars = EXSCHEDULELib.ScrollBarsEnum.exNoScroll; axSchedule1.AllowMoveSchedule = EXSCHEDULELib.AllowKeysEnum.exDisallow; EXSCHEDULELib.Calendar var_Calendar = axSchedule1.Calendar; var_Calendar.Selection = Convert.ToDateTime("1/10/2001",System.Globalization.CultureInfo.GetCultureInfo("en-US")); var_Calendar.MinDate = Convert.ToDateTime("1/1/2001",System.Globalization.CultureInfo.GetCultureInfo("en-US")); var_Calendar.MaxDate = Convert.ToDateTime("1/31/2001",System.Globalization.CultureInfo.GetCultureInfo("en-US"));
X++ (Dynamics Ax 2009)
public void init() { COM com_Calendar; anytype var_Calendar; ; super(); exschedule1.ScrollBars(0/*exNoScroll*/); exschedule1.AllowMoveSchedule(0/*exDisallow*/); var_Calendar = exschedule1.Calendar(); com_Calendar = var_Calendar; com_Calendar.Selection(COMVariant::createFromDate(str2Date("1/10/2001",213))); com_Calendar.MinDate(str2Date("1/1/2001",213)); com_Calendar.MaxDate(str2Date("1/31/2001",213)); }
Delphi 8 (.NET only)
with AxSchedule1 do begin ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exNoScroll; AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow; with Calendar do begin Selection := '1/10/2001'; MinDate := '1/1/2001'; MaxDate := '1/31/2001'; end; end
Delphi (standard)
with Schedule1 do begin ScrollBars := EXSCHEDULELib_TLB.exNoScroll; AllowMoveSchedule := EXSCHEDULELib_TLB.exDisallow; with Calendar do begin Selection := '1/10/2001'; MinDate := '1/1/2001'; MaxDate := '1/31/2001'; end; end
VFP
with thisform.Schedule1 .ScrollBars = 0 .AllowMoveSchedule = 0 with .Calendar .Selection = {^2001-1-10} .MinDate = {^2001-1-1} .MaxDate = {^2001-1-31} endwith endwith
dBASE Plus
local oSchedule,var_Calendar oSchedule = form.Activex1.nativeObject oSchedule.ScrollBars = 0 oSchedule.AllowMoveSchedule = 0 var_Calendar = oSchedule.Calendar var_Calendar.Selection = "01/10/2001" var_Calendar.MinDate = "01/01/2001" var_Calendar.MaxDate = "01/31/2001"
XBasic (Alpha Five)
Dim oSchedule as P Dim var_Calendar as P oSchedule = topparent:CONTROL_ACTIVEX1.activex oSchedule.ScrollBars = 0 oSchedule.AllowMoveSchedule = 0 var_Calendar = oSchedule.Calendar var_Calendar.Selection = {01/10/2001} var_Calendar.MinDate = {01/01/2001} var_Calendar.MaxDate = {01/31/2001}
Visual Objects
local var_Calendar as ICalendar oDCOCX_Exontrol1:ScrollBars := exNoScroll oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow var_Calendar := oDCOCX_Exontrol1:Calendar var_Calendar:Selection := SToD("20010110") var_Calendar:MinDate := SToD("20010101") var_Calendar:MaxDate := SToD("20010131")
PowerBuilder
OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.ScrollBars = 0 oSchedule.AllowMoveSchedule = 0 var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2001-01-10 var_Calendar.MinDate = 2001-01-01 var_Calendar.MaxDate = 2001-01-31