Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Sub ultraCalendarInfo1_BeforeDisplayReminderDialog(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.CancelableAppointmentEventArgs) Handles ultraCalendarInfo1.BeforeDisplayReminderDialog
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeDisplayReminderDialog
'
' Reminder ダイアログが表示される前に発生します
' キャンセルされる場合、Reminder ダイアログは表示されずに、AfterDisplayReminderDialog イベントも発生しません
'
'----------------------------------------------------------------------------------------------------
If (e.Appointment.Reminder.SnoozeIntervalUnits = SnoozeIntervalUnits.Days) Then
' Reminder ダイアログが表示されないために、イベントをキャンセルします
e.Cancel = True
' SnoozeTime プロパティの値を取得します
' 予定が再通知された時間を指定します
Dim snoozeTime As DateTime = e.Appointment.Reminder.SnoozeTime
' 予定がある通知を表示します
Dim info As String = String.Empty
info += "This Reminder was last snoozed on " + snoozeTime.ToLongDateString()
info += " at " + snoozeTime.ToLongTimeString() + vbCrLf + vbCrLf
info += "The snooze interval will now be set to 1 minute." + vbCrLf
MessageBox.Show(info, "BeforeDisplayReminderDialog", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub