Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_AfterAppointmentAdded(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AppointmentEventArgs) Handles ultraCalendarInfo1.AfterAppointmentAdded
'----------------------------------------------------------------------------------------------------
' 説明
' AfterAppointmentAdded
'
' 新しいメンバーがコンポーネントの Appointments コレクションに追加された後に発生します
'
' この例は、追加された後に新しい Appointment に関する情報を表示します
'----------------------------------------------------------------------------------------------------
Dim info As String = String.Empty
info += "A new Appointment was just added to the UltraCalendarInfo object:" + vbCrLf + vbCrLf
info += "The new Appointment starts on: " + e.Appointment.StartDateTime.ToLongDateString() + vbCrLf
info += "The new Appointment ends on: " + e.Appointment.EndDateTime.ToLongDateString() + vbCrLf
info += "The new Appointment's start time is: " + e.Appointment.StartDateTime.ToLongTimeString() + vbCrLf
info += "The new Appointment's end time is: " + e.Appointment.EndDateTime.ToLongTimeString() + vbCrLf
info += "The new Appointment's Subject is: " + e.Appointment.Subject + vbCrLf
info += "The new Appointment's Location is: " + e.Appointment.Location + vbCrLf
info += "The new Appointment's Description is: " + e.Appointment.Description + vbCrLf
MessageBox.Show(info, "AfterAppointmentAdded", MessageBoxButtons.YesNo)
End Sub