Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_BeforeActiveDayChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeActiveDayChangedEventArgs) Handles ultraCalendarInfo1.BeforeActiveDayChanged
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeActiveDayChanged
'
' ActiveDay が変更される前に発生しますキャンセルされた場合、ActiveDay を変更しなくて、
' AfterActiveDayChanged イベントを発生しません
'
'----------------------------------------------------------------------------------------------------
' 新しい ActiveDay になる日の曜日を取得します
Dim DayOfWeek As System.DayOfWeek = e.Day.Date.DayOfWeek
' 新しい ActiveDay は土曜日または日曜日であるかどうかを確認します
If (DayOfWeek = System.DayOfWeek.Saturday Or DayOfWeek = System.DayOfWeek.Sunday) Then
' 週末日のアクティブ化を回避するには、Cancel プロパティを
' True に設定します
e.Cancel = True
' ユーザーに状態を出力します
Dim info As String = String.Empty
info += "You cannot activate " + e.Day.Date.ToLongDateString() + " because it falls on a "
info += DayOfWeek.ToString()
MessageBox.Show(info, "BeforeActiveDayChanged", MessageBoxButtons.OK)
End If
End Sub