Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If Me.UltraWeekView1.IsInEditMode Then
If Me.UltraWeekView1.IsAppointmentInEditMode Then
Debug.WriteLine("An Appointment is in edit mode.")
ElseIf Me.UltraWeekView1.IsNoteInEditMode Then
Debug.WriteLine("A Note is in edit mode.")
End If
End If
If Me.UltraMonthViewSingle1.IsInEditMode Then
If Me.UltraMonthViewSingle1.IsAppointmentInEditMode Then
Debug.WriteLine("An Appointment is in edit mode.")
ElseIf Me.UltraMonthViewSingle1.IsNoteInEditMode Then
Debug.WriteLine("A Note is in edit mode.")
End If
End If
If Me.UltraDayView1.IsInEditMode Then
Debug.WriteLine("An Appointment is in edit mode.")
End If
End Sub