Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_BeforeHolidayAdded(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.CancelableHolidayEventArgs) Handles ultraCalendarInfo1.BeforeHolidayAdded
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeHolidayAdded
'
' 新しい休日がコンポーネントの Holidays コレクションに追加される前に発生します
' キャンセルされる場合、Holiday が追加されずに、AfterHolidayAdded イベントも発生しません
'
'----------------------------------------------------------------------------------------------------
' この休日に追加される月は既存の休日がある
' かどうかを決定します
If (e.Holiday.Day.Month.Holidays.Count > 0) Then
' Holiday の追加を回避するには、Cancel プロパティを
' True に設定します
e.Cancel = True
' ユーザーに状態を出力します
Dim info As String = String.Empty
Dim monthName As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(e.Holiday.Day.Month.MonthNumber - 1)
info += "Sorry, but there is already a Holiday for the month of " + monthName + "."
MessageBox.Show(info, "BeforeHolidayAdded", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End If
End Sub