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