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 );