Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_BeforePerformAction(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeDayViewPerformActionEventArgs) Handles UltraDayView1.BeforePerformAction
' Cancel the event if the action is 'DeleteSelectedAppointments', to
' prevent the end user from deleting appointments via the keyboard.
If e.Action = UltraDayViewAction.DeleteSelectedAppointments Then
e.Cancel = True
End If
End Sub
Private Sub UltraDayView1_AfterPerformAction(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterDayViewPerformActionEventArgs) Handles UltraDayView1.AfterPerformAction
' Make the system 'beep' sound if the end user cancels edit mode
If e.Action = UltraDayViewAction.EndCurrentEditDiscardChanges Then
Beep()
End If
End Sub