BeforeReminderShow 事件

显示提醒对话框前发生。

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

Cancel  必选。值为 True 时可取消事件。默认值为 False。

示例

以下示例在显示提醒前提示用户。用户可以单击“否”取消该事件。

Private Sub objReminders_BeforeReminderShow(Cancel As Boolean)
'Occurs before a reminder appears

    Dim lngAns As Long

    lngAns = MsgBox("Do you want to view the reminder?", vbYesNo)
    If lngAns = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If

End Sub