Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_AfterSelectedAppointmentsChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraCalendarInfo1.AfterSelectedAppointmentsChange
'----------------------------------------------------------------------------------------------------
' 説明
' AfterSelectedAppointmentsChange
'
' 1 つ以上の Appointment が選択または選択解除された後に発生します
'
' この例は、SelectedAppointments コレクションの新しい数を表示します
'----------------------------------------------------------------------------------------------------
MessageBox.Show("The number of selected Appointments is " + Me.ultraCalendarInfo1.SelectedAppointments.Count.ToString() + "\n", "AfterSelectedAppointmentsChange", MessageBoxButtons.OK)
End Sub