Private Sub UltraMonthViewSingle1_MoreActivityIndicatorClicked(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.MoreActivityIndicatorClickedEventArgs) Handles ultraMonthViewSingle1.MoreActivityIndicatorClicked
' クリックしたインジケーターを含む日への参照を取得します
Dim day as Infragistics.Win.UltraWinSchedule.Day = e.Day
Dim date As DateTime = day.Date
' クリックしたインジケーターを含む日をアクティブ化します
Me.ultraCalendarInfo1.ActiveDay = day
' クリックしたインジケーターを含む日を選択します
Me.ultraCalendarInfo1.SelectedDateRanges.Clear()
Me.ultraCalendarInfo1.SelectedDateRanges.Add( date )
' UltraDayView コントロールを表示するため、 UltraMonthViewSingleBase の
' 派生コントロールを非表示にします
Dim senderControl As UltraMonthViewSingleBase = sender
senderControl.Visible = false
' UltraDayView コントロールを表示します。UltraDayView は
' SelectedDateRanges コレクションのコンテンツを表示するため、
' クリックしたインジケーターを含む日は
' UltraDayView コントロールで表示されます
Me.ultraDayView1.Visible = true
End Sub