AddHandler Me.ultraDayView1.AppointmentsDragging, AddressOf ultraDayView1_AppointmentsDragging
AddHandler Me.ultraDayView1.AppointmentResized, AddressOf ultraDayView1_AppointmentResized
Private Sub ultraDayView1_AppointmentsDragging(ByVal sender As Object, ByVal e As AppointmentsDraggingEventArgs) Handles ultraDayView1.AppointmentsDragging
Dim control As ControlWithActivityBase = TryCast(sender, ControlWithActivityBase)
'WinSchedule コントロール名を取得します
System.Console.WriteLine(control.Name.ToString())
System.Console.WriteLine(e.Phase.ToString())
System.Console.WriteLine(e.InitialOwner.ToString())
'予定の Date Time
System.Console.WriteLine(e.InitialDateTime.ToString())
'予定が移動された新しい Date Time
System.Console.WriteLine(e.NewDateTime.ToString())
'一人の Owner から別の Owner への予定のドラッグを防止します
e.AllowOwnerChange = False
End Sub
Private Sub ultraDayView1_AppointmentResized(ByVal sender As Object, ByVal e As AppointmentResizedEventArgs) Handles ultraDayView1.AppointmentResized
'開始 Date Time がリサイズされたのか、それとも終了 Date Time がリサイズされたのかを指定します
System.Console.WriteLine(e.ResizeType.ToString())
End Sub