Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Debug.WriteLine("List of selected date ranges (total: " + Me.UltraCalendarInfo1.SelectedDateRanges.Count.ToString() + ")")
Debug.IndentLevel += 1
' Iterate through the selected date ranges in UltraCalendarInfo's
' SelectedDateRanges collection and display information about each range
' in the output window.
Dim rangeNumber As Integer = 1
Dim dateRange As DateRange
For Each dateRange In Me.UltraCalendarInfo1.SelectedDateRanges
Debug.WriteLine("Info for date range #" + rangeNumber.ToString() + " ------------")
rangeNumber += 1
Debug.IndentLevel += 1
Debug.WriteLine("StartDate: " + dateRange.StartDate.ToShortDateString())
Debug.WriteLine("StartDate Day of week: " + dateRange.FirstDay.DayOfWeek.DayOfTheWeek.ToString())
Debug.WriteLine("EndDate: " + dateRange.EndDate.ToShortDateString())
Debug.WriteLine("EndDate Day of week: " + dateRange.LastDay.DayOfWeek.DayOfTheWeek.ToString())
Debug.IndentLevel -= 1
Next
Debug.IndentLevel -= 1
End Sub