Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
' Use the date associated with today when calling the following methods.
Dim todaysDate As DateTime = DateTime.Today
' Get the DayLook object associated with today.
Dim dayLook As DayLook = Me.UltraCalendarLook1.GetDayLook(todaysDate, True)
Debug.WriteLine("The DayLook backcolor for today (" + todaysDate.ToShortDateString() + ") is: " + dayLook.Appearance.BackColor.ToString())
' Get the MonthLook object associated with today.
Dim monthLook As MonthLook = Me.UltraCalendarLook1.GetMonthLook(todaysDate)
' NOTE: there are 2 additional overloads for the GetMonthLook method that could
' be called as follows:
'dim monthLook as MonthLook = Me.ultraCalendarLook1.GetMonthLook(YearMonthEnum.January, todaysDate.Year)
'dim monthLook as MonthLook = Me.ultraCalendarLook1.GetMonthLook(todaysDate.Month, todaysDate.Year)
Debug.WriteLine("The MonthLook backcolor for today (" + todaysDate.ToShortDateString() + ") is: " + monthLook.Appearance.BackColor.ToString())
' Get the WeekLook object associated with today.
Dim weekLook As WeekLook = Me.UltraCalendarLook1.GetWeekLook(todaysDate, Me.UltraDayView1.CalendarInfo)
' NOTE: there is an overload for the GetWeekLook method that could be called as
' follows:
'dim weekLook as WeekLook = Me.ultraCalendarLook1.GetWeekLook(Me.ultraDayView1.VisibleDays(0).Day.Week.WeekNumber, todaysDate.Year)
Debug.WriteLine("The WeekLook backcolor for today (" + todaysDate.ToShortDateString() + ") is: " + weekLook.Appearance.BackColor.ToString())
' Get the YearLook object associated with today.
Dim yearLook As YearLook = Me.UltraCalendarLook1.GetYearLook(todaysDate.Year)
Debug.WriteLine("The YearLook backcolor for today (" + todaysDate.ToShortDateString() + ") is: " + yearLook.Appearance.BackColor.ToString())
End Sub