'宣言 Protected Overridable Sub OnBeforeAppointmentsDeleted( _ ByVal e As BeforeAppointmentsDeletedEventArgs _ )
protected virtual void OnBeforeAppointmentsDeleted( BeforeAppointmentsDeletedEventArgs e )
Imports System.Diagnostics Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Private Sub UltraDayView1_BeforeAppointmentsDeleted(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeAppointmentsDeletedEventArgs) Handles UltraDayView1.BeforeAppointmentsDeleted Dim dr As DialogResult = MessageBox.Show(Me, e.Appointments.Length.ToString() + " appointments are about to be deleted. Do you want to cancel the deletion?", "Cancelable DayView Event", MessageBoxButtons.YesNo) If dr = DialogResult.Yes Then e.Cancel = True End If End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; private void ultraDayView1_BeforeAppointmentsDeleted(object sender, Infragistics.Win.UltraWinSchedule.BeforeAppointmentsDeletedEventArgs e) { DialogResult dr = MessageBox.Show(this, e.Appointments.Length.ToString() + " appointments are about to be deleted. Do you want to cancel the deletion?", "Cancelable DayView Event", MessageBoxButtons.YesNo); if (dr == DialogResult.Yes) e.Cancel = true; }