注: この色は、SelectedTimeSlotBackColor と同じです。
Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click ' Set the UltraMonthViewSingle's CalendarLook property to ' reference the form's instance Me.ultraMonthViewSingle1.CalendarLook = Me.ultraCalendarLook1 ' Set the UltraCalendarLook's ViewStyle property to 'Office2007' Me.ultraCalendarLook1.ViewStyle = ViewStyle.Office2007 ' Get a reference to the UltraCalendarLook's Outlook2007ColorSchemes collection Dim colorSchemes As Outlook2007ColorSchemeCollection = Me.ultraCalendarLook1.Outlook2007ColorSchemes ' Get the default color scheme...note that this property is "synchronized" with ' the static Infragistics.Win.Office2007ColorTable.ColorScheme property, so that ' the colors returned are consistent with that look. Dim defaultColorScheme As Outlook2007ColorScheme = colorSchemes.DefaultScheme ' Create a custom appearance which we will apply to the ' UltraCalendarLook's new DayHeaderHotTrackingAppearance Dim dayHeaderHotTrackingAppearance As New Infragistics.Win.Appearance() dayHeaderHotTrackingAppearance.BackColor = defaultColorScheme.CurrentDayHeaderBackColor dayHeaderHotTrackingAppearance.BackColor2 = defaultColorScheme.CurrentDayHeaderBackColor2 dayHeaderHotTrackingAppearance.BorderColor = defaultColorScheme.CurrentDayBorderColor dayHeaderHotTrackingAppearance.ForeColor = defaultColorScheme.SelectedAllDayEventAreaBackColor ' Assign the custom appearance to the DayHeaderHotTrackingAppearance Me.ultraCalendarLook1.DayHeaderHotTrackingAppearance = dayHeaderHotTrackingAppearance ' Create a custom appearance which we will apply to the ' UltraCalendarLook's new WeekHeaderHotTrackingAppearance Dim weekHeaderHotTrackingAppearance As New Infragistics.Win.Appearance() weekHeaderHotTrackingAppearance.BackColor = defaultColorScheme.AppointmentBackColor weekHeaderHotTrackingAppearance.BackColor2 = defaultColorScheme.BaseColor weekHeaderHotTrackingAppearance.ForeColor = defaultColorScheme.SelectedAllDayEventAreaBackColor weekHeaderHotTrackingAppearance.BackGradientStyle = GradientStyle.Elliptical ' Assign the custom appearance to the WeekHeaderHotTrackingAppearance Me.ultraCalendarLook1.WeekHeaderHotTrackingAppearance = weekHeaderHotTrackingAppearance End Sub
using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; using System.Diagnostics; private void button1_Click(object sender, System.EventArgs e) { // Set the UltraMonthViewSingle's CalendarLook property to // reference the form's instance this.ultraMonthViewSingle1.CalendarLook = this.ultraCalendarLook1; // Set the UltraCalendarLook's ViewStyle property to 'Office2007' this.ultraCalendarLook1.ViewStyle = ViewStyle.Office2007; // Get a reference to the UltraCalendarLook's Outlook2007ColorSchemes collection Outlook2007ColorSchemeCollection colorSchemes = this.ultraCalendarLook1.Outlook2007ColorSchemes; // Get the default color scheme...note that this property is "synchronized" with // the static Infragistics.Win.Office2007ColorTable.ColorScheme property, so that // the colors returned are consistent with that look. Outlook2007ColorScheme defaultColorScheme = colorSchemes.DefaultScheme; // Create a custom appearance which we will apply to the // UltraCalendarLook's new DayHeaderHotTrackingAppearance Infragistics.Win.Appearance dayHeaderHotTrackingAppearance = new Infragistics.Win.Appearance(); dayHeaderHotTrackingAppearance.BackColor = defaultColorScheme.CurrentDayHeaderBackColor; dayHeaderHotTrackingAppearance.BackColor2 = defaultColorScheme.CurrentDayHeaderBackColor2; dayHeaderHotTrackingAppearance.BorderColor = defaultColorScheme.CurrentDayBorderColor; dayHeaderHotTrackingAppearance.ForeColor = defaultColorScheme.SelectedAllDayEventAreaBackColor; // Assign the custom appearance to the DayHeaderHotTrackingAppearance this.ultraCalendarLook1.DayHeaderHotTrackingAppearance = dayHeaderHotTrackingAppearance; // Create a custom appearance which we will apply to the // UltraCalendarLook's new WeekHeaderHotTrackingAppearance Infragistics.Win.Appearance weekHeaderHotTrackingAppearance = new Infragistics.Win.Appearance(); weekHeaderHotTrackingAppearance.BackColor = defaultColorScheme.AppointmentBackColor; weekHeaderHotTrackingAppearance.BackColor2 = defaultColorScheme.BaseColor; weekHeaderHotTrackingAppearance.ForeColor = defaultColorScheme.SelectedAllDayEventAreaBackColor; weekHeaderHotTrackingAppearance.BackGradientStyle = GradientStyle.Elliptical; // Assign the custom appearance to the WeekHeaderHotTrackingAppearance this.ultraCalendarLook1.WeekHeaderHotTrackingAppearance = weekHeaderHotTrackingAppearance; }