RecurrenceEditType Property (DisplayAppointmentDialogEventArgs)

Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics

	Private Sub ultraCalendarInfo1_BeforeDisplayAppointmentDialog(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.DisplayAppointmentDialogEventArgs) Handles ultraCalendarInfo1.BeforeDisplayAppointmentDialog
		'----------------------------------------------------------------------------------------------------
		'	Description
		'	BeforeDisplayAppointmentDialog
		'
		'	Fires before the Appointment dialog is displayed
		'	If canceled, the Appointment dialog is not displayed, and the AfterDisplayAppointmentDialog event does not fire.
		'
		'----------------------------------------------------------------------------------------------------

		If Not e.IsExistingAppointment Then
			If e.Appointment.StartDateTime < DateTime.Today Then
				'	To prevent the displaying of the AppointmentDialog, set the Cancel
				'	property to true
				e.Cancel = True

				'	Let the end user know what happened
				Dim info As String = String.Empty
				info += "Sorry, but you cannot add new appointments in the past."

				MessageBox.Show(info, "BeforeDisplayAppointmentDialog", MessageBoxButtons.OK, MessageBoxIcon.Error)
			End If
		Else
			' this must be an existing appointment for which the dialog
			' will be displayed...

			' if this is a recurring appointment instance...
			If Not e.Appointment.RecurringAppointmentRoot Is Nothing Then
				' Outlook prompts the user as to whether the series
				' or the occurrence should be edited. In UltraCalendarInfo, 
				' this can be controlled by setting the 'RecurrenceEditType'
				' of the event arguments.
				'

				' if the appointment is already a variance (a modified occurrence)
				' then let them edit the occurrence information
				If e.Appointment.IsVariance Then
					e.RecurrenceEditType = RecurrenceEditType.Occurrence
				Else			 'otherwise, let them edit the series so they don't create variances Then 
					e.RecurrenceEditType = RecurrenceEditType.Series
				End If
			End If
		End If
	End Sub