Private Sub UltraMonthViewSingle1_BeforeNoteEdit(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeNoteEditEventArgs) Handles ultraMonthViewSingle.BeforeNoteEdit
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeNoteEdit
'
' コントロール UI で Note の説明が編集される前に発生します
' イベントがキャンセルされた場合、Note の編集は無効にり、AfterNoteEdit
' イベントを発生しません
'
'----------------------------------------------------------------------------------------------------
' メモの曜日を取得します
Dim dow As System.DayOfWeek = e.Note.Date.DayOfWeek
' メモが土曜日または日曜日以外の曜日にある場合、
' 編集を無効にします
If dow <> System.DayOfWeek.Saturday And dow <> System.DayOfWeek.Sunday Then
MessageBox.Show("You do not have the appropriate permissions to edit this Note.", "Access Denied", MessageBoxButtons.OK, MessageBoxIcon.Error)
e.Cancel = True
Return
End If
End Sub