'宣言 Protected Overridable Sub OnAfterAppointmentsMoved( _ ByVal e As AfterAppointmentsMovedEventArgs _ )
protected virtual void OnAfterAppointmentsMoved( AfterAppointmentsMovedEventArgs e )
Imports System.Diagnostics Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Private Sub UltraDayView1_AfterAppointmentsMoved(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterAppointmentsMovedEventArgs) Handles UltraDayView1.AfterAppointmentsMoved Dim appointment As Appointment For Each appointment In e.Appointments Debug.WriteLine("Appointment '" + appointment.Subject + "' has been moved. Its new Start time and End time are: " + appointment.StartDateTime.ToLongDateString() + " - " + appointment.EndDateTime.ToLongDateString()) Next End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; private void ultraDayView1_AfterAppointmentsMoved(object sender, Infragistics.Win.UltraWinSchedule.AfterAppointmentsMovedEventArgs e) { foreach(Appointment appointment in e.Appointments) { Debug.WriteLine("Appointment '" + appointment.Subject + "' has been moved. Its new Start time and End time are: " + appointment.StartDateTime.ToLongDateString() + " - " + appointment.EndDateTime.ToLongDateString()); } }