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