ReminderFire 事件

       

执行提醒前发生。

Private Sub expression_ReminderFire(ByVal ReminderObject As Reminder)

expression  该变量引用一个在类模块中以事件形式声明的 Reminders 类型对象。

ReminderObject  必选。被执行的 Reminder 对象。

示例

以下示例会在每次执行提醒时向用户显示一条消息。

Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder)
'Occurs when a reminder executes

    MsgBox "The reminder " & ReminderObject.Caption & " has just executed."

End Sub