Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_AfterHolidayAdded(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.HolidayEventArgs) Handles ultraCalendarInfo1.AfterHolidayAdded
'----------------------------------------------------------------------------------------------------
' 説明
' AfterHolidayAdded
'
' 新しいメンバーがコンポーネントの Holidays コレクションに追加された後に発生します
'
'----------------------------------------------------------------------------------------------------
Dim info As String = String.Empty
info += "A new Holiday was just added to the UltraCalendarInfo object:" + vbCrLf + vbCrLf
info += "The new Holiday starts on: " + e.Holiday.StartDate.ToLongDateString() + vbCrLf
info += "The new Holiday ends on: " + e.Holiday.StartDate.AddDays(e.Holiday.NumberOfDays).ToLongDateString() + vbCrLf
info += "The new Holiday's Name is: " + e.Holiday.Name + vbCrLf
info += "The new Holiday's will last for " + e.Holiday.NumberOfDays + " days." + vbCrLf
MessageBox.Show(info, "AfterHolidayAdded", MessageBoxButtons.OK)
End Sub