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
private void ultraMonthViewSingle1_MoreActivityIndicatorClicked(object sender, Infragistics.Win.UltraWinSchedule.MoreActivityIndicatorClickedEventArgs e) { // クリックしたインジケーターを含む日への参照を取得します Infragistics.Win.UltraWinSchedule.Day day = e.Day; DateTime date = day.Date; // クリックしたインジケーターを含む日をアクティブ化します this.ultraCalendarInfo1.ActiveDay = day; // クリックしたインジケーターを含む日を選択します this.ultraCalendarInfo1.SelectedDateRanges.Clear(); this.ultraCalendarInfo1.SelectedDateRanges.Add( date ); // UltraDayView コントロールを表示するため、 UltraMonthViewSingleBase の // 派生コントロールを非表示にします UltraMonthViewSingleBase senderControl = sender as UltraMonthViewSingleBase; senderControl.Visible = false; // UltraDayView コントロールを表示します。UltraDayView は // SelectedDateRanges コレクションのコンテンツを表示するため、 // クリックしたインジケーターを含む日は // UltraDayView コントロールで表示されます this.ultraDayView1.Visible = true; }