Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_AfterCloseAppointmentDialog(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AppointmentEventArgs) Handles ultraCalendarInfo1.AfterCloseAppointmentDialog
'----------------------------------------------------------------------------------------------------
' 説明
' AfterCloseAppointmentDialog
'
' [予定] ダイアログがエンド ユーザーによって閉じた後に発生します
'
'----------------------------------------------------------------------------------------------------
Dim info As String = "The Appointment dialog was closed." + vbCrLf
' Appointments コレクションのカウントが 0 の場合、予定は追加されません
If (Me.ultraCalendarInfo1.Appointments.Count = 0) Then info += "No Appointment was added."
MessageBox.Show(info, "AfterCloseAppointmentDialog", MessageBoxButtons.OK)
End Sub