Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
PrivateSub UltraDayView1_AfterAppointmentsMoved(ByVal sender AsObject, ByVal e As Infragistics.Win.UltraWinSchedule.AfterAppointmentsMovedEventArgs) Handles UltraDayView1.AfterAppointmentsMoved
Dim appointment As Appointment
ForEach 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())
NextEnd Sub
using System.Diagnostics;
using Infragistics.Win;
using Infragistics.Win.UltraWinSchedule;
privatevoid 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());
}
}