Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_AfterNoteRemoved(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraCalendarInfo1.AfterNoteRemoved
'----------------------------------------------------------------------------------------------------
' 説明
' AfterNoteRemoved
'
' 既存のメンバーがコンポーネントの Notes コレクションから削除された後に発生します
'
'----------------------------------------------------------------------------------------------------
Dim result As DialogResult = MessageBox.Show("A Note was just removed from the UltraCalendarInfo object." + "\n" + "Would you like to add a new Note for the ActiveDay?", "AfterNoteRemoved", MessageBoxButtons.YesNo)
If (result = DialogResult.No) Then Return
Dim startDate As DateTime = Me.ultraCalendarInfo1.ActiveDay.Date
Me.ultraCalendarInfo1.Notes.Add(startDate, "My Note")
End Sub