Private Sub UltraMonthViewSingle1_AfterAppointmentEdit(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterAppointmentEditEventArgs) Handles ultraMonthViewSingle.AfterAppointmentEdit
'----------------------------------------------------------------------------------------------------
' 説明
' AfterAppointmentEdit
'
' コントロール UI で Appointment の件名が編集された後に発生します
' BeforeAppointmentEdit イベントをキャンセルしないと、AfterAppointmentEdit イベントが発生します
'
'----------------------------------------------------------------------------------------------------
' イベント引数から Appointment の件名の以前の値および
' 新しい値を取得します
Dim oldValue As String = e.OldValue
Dim newValue As String = e.Appointment.Subject
' 以前の値および新しい値を MessageBox に表示します
Dim info As String = String.Empty
info += "An Appointment's subject was edited." + vbCrLf
info += "The old value was '" + oldValue + "'." + vbCrLf
info += "The new value is '" + newValue + "'." + vbCrLf
MessageBox.Show(info, "AfterAppointmentEdit", MessageBoxButtons.OK)
End Sub