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