Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_AfterSelectedDateRangeChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraCalendarInfo1.AfterSelectedDateRangeChange
'----------------------------------------------------------------------------------------------------
' 説明
' AfterSelectedDateRangeChange
'
' 日付の範囲が選択または選択解除された後に発生します
'
' SelectedDateRanges コレクションはコレクションのコレクションです
' 各「サブコレクション」は選択された日を表します各
' DateRange オブジェクトは選択された連続日の範囲を表します
' 新しい日が選択されたときに、新しい日が現在選択された日の隣りにある場合、
' 新しい日は既存の DateRange オブジェクトに追加されます隣りにない場合、新しい DateRange オブジェクトはコレクションに
' 追加し、1 日のみ含みます
'
'----------------------------------------------------------------------------------------------------
' 選択された日がない場合、情報を表示しません
If (Me.ultraCalendarInfo1.SelectedDateRanges.Count = 0) Then Return
Dim info As String = String.Empty
info += "The range of selected days has changed. The currently selected days are:" + vbCrLf + vbCrLf
' アウター ループで SelectedDateRanges を繰り返します
Dim range As Infragistics.Win.UltraWinSchedule.DateRange
For Each range In Me.ultraCalendarInfo1.SelectedDateRanges
' インナー ループで範囲の Days コレクションを繰り返します
Dim day As Infragistics.Win.UltraWinSchedule.Day
For Each day In range.Days
' 各の日の情報を情報文字列に追加します
info += day.Date.ToLongDateString() + vbCrLf
Next
Next
' 情報を表示します
MessageBox.Show(info, "AfterSelectedDateRangeChange", MessageBoxButtons.OK)
End Sub