'宣言 Public Delegate Sub BeforeNoteEditEventHandler( _ ByVal sender As Object, _ ByVal e As BeforeNoteEditEventArgs _ )
public delegate void BeforeNoteEditEventHandler( object sender, BeforeNoteEditEventArgs e )
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
private void ultraMonthViewSingle1_BeforeNoteEdit(object sender, Infragistics.Win.UltraWinSchedule.BeforeNoteEditEventArgs e) { //---------------------------------------------------------------------------------------------------- // 説明 // BeforeNoteEdit // // コントロール UI で Note の説明が編集される前に発生します // イベントがキャンセルされた場合、Note の編集は無効になり、AfterNoteEdit // イベントを発生しません // //---------------------------------------------------------------------------------------------------- // メモの曜日を取得します System.DayOfWeek dow = e.Note.Date.DayOfWeek; // メモが土曜日または日曜日以外の曜日にある場合、 // 編集を無効にします if ( dow != System.DayOfWeek.Saturday && dow != System.DayOfWeek.Sunday ) { MessageBox.Show( "You do not have the appropriate permissions to edit this Note.", "Access Denied", MessageBoxButtons.OK, MessageBoxIcon.Error ); e.Cancel = true; return; } }