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