Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_BeforeHolidayRemoved(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.CancelableHolidayEventArgs) Handles ultraCalendarInfo1.BeforeHolidayRemoved
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeHolidayRemoved
'
' 新しい休日がコンポーネントの Holidays コレクションから削除される前に発生します
' キャンセルされる場合、Holiday が削除されずに、AfterHolidayRemoved イベントも発生しません
'
'----------------------------------------------------------------------------------------------------
If (e.Holiday.NumberOfDays > 1) Then
' Appointment の削除を回避するには、Cancel プロパティを
' True に設定します
e.Cancel = True
' ユーザーに状態を出力します
Dim info As String = String.Empty
info += "You do not have sufficient permissions to remove multi-day holidays." + vbCrLf
MessageBox.Show(info, "BeforeHolidayRemoved", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub