Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.IO
Imports System.Globalization
Private Sub AddAppointment(ByVal appointmentDate As DateTime, ByVal subject As String, ByVal fireEvents As Boolean)
' AfterAppointmentAdded イベントが有効かどうかを決定します
Dim beforeWasEnabled As Boolean = Me.ultraCalendarInfo1.EventManager.IsEnabled(CalendarInfoEventIds.BeforeAppointmentAdded)
Dim afterWasEnabled As Boolean = Me.ultraCalendarInfo1.EventManager.IsEnabled(CalendarInfoEventIds.AfterAppointmentAdded)
' 'before' イベントが有効で、'fireEvents' パラメーターが False の場合、
' イベントの発生を無効にします
If (beforeWasEnabled And Not fireEvents) Then
Me.ultraCalendarInfo1.EventManager.SetEnabled(CalendarInfoEventIds.BeforeAppointmentAdded, False)
End If
' 'after' イベントが有効で、'fireEvents' パラメーターが False の場合、
' イベントの発生を無効にします
If (afterWasEnabled And Not fireEvents) Then
Me.ultraCalendarInfo1.EventManager.SetEnabled(CalendarInfoEventIds.AfterAppointmentAdded, False)
End If
' 予定を追加します
Me.ultraCalendarInfo1.Appointments.Add(appointmentDate, subject)
' このメソッドが呼び出した前に有効だった場合、
' イベントの発生を有効にします
' 'before' イベントが有効だった場合、予定を追加した後に有効にします
If (beforeWasEnabled And Not fireEvents) Then
Me.ultraCalendarInfo1.EventManager.SetEnabled(CalendarInfoEventIds.BeforeAppointmentAdded, True)
End If
' 'after' イベントが有効だった場合、予定を追加した後に再び有効にします
If (afterWasEnabled And Not fireEvents) Then
Me.ultraCalendarInfo1.EventManager.SetEnabled(CalendarInfoEventIds.AfterAppointmentAdded, True)
End If
End Sub