Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
' The code below shows how UltraCalendarLook appearance properties can be set
' and overridden. Note that not all appearance properties are shown, but the
' approach would be the same with the missing appearance properties.
' Create some named appearances we can use throughout our code.
Me.UltraCalendarLook1.Appearances.Add("Blue Tone")
Me.UltraCalendarLook1.Appearances("Blue Tone").BackColor = Color.LightBlue
Me.UltraCalendarLook1.Appearances("Blue Tone").ForeColor = Color.DarkBlue
Me.UltraCalendarLook1.Appearances.Add("Blue Tone with gradient")
Me.UltraCalendarLook1.Appearances("Blue Tone with gradient").BackColor = Color.LightBlue
Me.UltraCalendarLook1.Appearances("Blue Tone with gradient").BackColor2 = Color.CadetBlue
Me.UltraCalendarLook1.Appearances("Blue Tone with gradient").BackGradientStyle = GradientStyle.VerticalBump
Me.UltraCalendarLook1.Appearances("Blue Tone with gradient").ForeColor = Color.DarkBlue
' Setup the UltraCalendarLook's DayAppearance property. This will serve as a default
' appearance for all days. We will then set various other day-related appearances to
' override the default appearance.
Me.UltraCalendarLook1.DayAppearance.BackColor = SystemColors.Window
Me.UltraCalendarLook1.DayAppearance.BackColor2 = SystemColors.ControlLight
Me.UltraCalendarLook1.DayAppearance.BackGradientStyle = GradientStyle.Horizontal
Me.UltraCalendarLook1.DayAppearance.ForeColor = SystemColors.WindowText
' Override the day appearance for all Christmas days.
Me.UltraCalendarLook1.DaysOfYearLook(12, 25).Appearance.BackColor = Color.Green
Me.UltraCalendarLook1.DaysOfYearLook(12, 25).Appearance.ForeColor = Color.Red
' Change the appearance for Christmas day 2003
Me.UltraCalendarLook1.GetDayLook(New DateTime(2002, 12, 25), True).Appearance = Me.UltraCalendarLook1.Appearances("Blue Tone with gradient")
' Override the look for the month of June 2002.
Me.UltraCalendarLook1.GetMonthLook(6, 2002).Appearance = Me.UltraCalendarLook1.Appearances("Blue Tone with gradient")
' Override the look for all wednesdays.
Me.UltraCalendarLook1.DaysOfWeekLook(DayOfWeekEnum.Wednesday).Appearance = Me.UltraCalendarLook1.Appearances("Blue Tone with gradient")
' Override the look for the 15th of each month.
Me.UltraCalendarLook1.DaysOfMonthLook(15).Appearance.BackColor = Color.Cyan
End Sub