显示提醒对话框前发生。
Private Sub expression_BeforeReminderShow(Cancel As Boolean)
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