Imports System.Collections.Generic Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Imports System.Diagnostics ' Add a new Owner to the Owners collection Dim myOwner As Owner = Me.calendarInfo.Owners.Add("myCalendar") ' Create an OwnerDateSettings object for the first day of the current month Dim dateSettings As OwnerDateSettings = New OwnerDateSettings(New DateTime(DateTime.Today.Year, DateTime.Today.Month, 1)) ' Designate the day as a workday dateSettings.IsWorkDay = DefaultableBoolean.True ' Add two sets of working hours, one for 9AM to 12PM, ' and another for 1PM to 5PM dateSettings.WorkingHours.Add(New TimeRange(TimeSpan.FromHours(9), TimeSpan.FromHours(12))) dateSettings.WorkingHours.Add(New TimeRange(TimeSpan.FromHours(13), TimeSpan.FromHours(17))) ' Create an appearance to indicate that the office is closed Dim officeClosedAppearance As Appearance = New Appearance() officeClosedAppearance.BackColor = Color.White officeClosedAppearance.BackColor2 = Color.LightGray officeClosedAppearance.BackGradientStyle = GradientStyle.Horizontal officeClosedAppearance.BorderColor = Color.Transparent ' Create TimeRanges for the hours during which the office is closed, ' which is 12AM to 6AM, and 8PM to 12AM Dim closed1 As TimeRange = New TimeRange(TimeSpan.FromHours(0), TimeSpan.FromHours(6)) Dim closed2 As TimeRange = New TimeRange(TimeSpan.FromHours(20), TimeSpan.FromHours(24)) ' Add two TimeRangeAppearance objects, one for each range during which ' the office is closed dateSettings.TimeRangeAppearances.Add(closed1, officeClosedAppearance) dateSettings.TimeRangeAppearances.Add(closed2, officeClosedAppearance) ' Add the OwnerDateSettings object to the Owner's DateSettings collection myOwner.DateSettings.Add(dateSettings)
using System.Collections.Generic; using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; using System.Diagnostics; // Add a new Owner to the Owners collection Owner myOwner = this.calendarInfo.Owners.Add( "myCalendar" ); // Create an OwnerDateSettings object for the first day of the current month OwnerDateSettings dateSettings = new OwnerDateSettings( new DateTime(DateTime.Today.Year, DateTime.Today.Month, 1) ); // Designate the day as a workday dateSettings.IsWorkDay = DefaultableBoolean.True; // Add two sets of working hours, one for 9AM to 12PM, // and another for 1PM to 5PM dateSettings.WorkingHours.Add( new TimeRange( TimeSpan.FromHours(9), TimeSpan.FromHours(12) ) ); dateSettings.WorkingHours.Add( new TimeRange( TimeSpan.FromHours(13), TimeSpan.FromHours(17) ) ); // Create an appearance to indicate that the office is closed Appearance officeClosedAppearance = new Appearance(); officeClosedAppearance.BackColor = Color.White; officeClosedAppearance.BackColor2 = Color.LightGray; officeClosedAppearance.BackGradientStyle = GradientStyle.Horizontal; officeClosedAppearance.BorderColor = Color.Transparent; // Create TimeRanges for the hours during which the office is closed, // which is 12AM to 6AM, and 8PM to 12AM TimeRange closed1 = new TimeRange( TimeSpan.FromHours(0), TimeSpan.FromHours(6) ); TimeRange closed2 = new TimeRange( TimeSpan.FromHours(20), TimeSpan.FromHours(24) ); // Add two TimeRangeAppearance objects, one for each range during which // the office is closed dateSettings.TimeRangeAppearances.Add( closed1, officeClosedAppearance ); dateSettings.TimeRangeAppearances.Add( closed2, officeClosedAppearance ); // Add the OwnerDateSettings object to the Owner's DateSettings collection myOwner.DateSettings.Add( dateSettings );
Target Platforms: Windows 10, Windows 8.1, Windows 8, Windows 7, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2