在活动扩展网页窗口中的网页保存之前发生。
Private Sub expression_OnBeforeSave(SaveAsUI As Boolean, Cancel As Boolean)
expression 引用 PageWindowEx 类型对象的变量名称,该对象是在类模块中以事件方式声明的。
SaveAsUI Boolean 类型,确定是否显示用户界面。如果为 True,则显示“保存”对话框。
Cancel Boolean 类型,确定是否取消保存操作。如果为 True,则不保存该文档。
下列示例在保存文档之前提示用户。如果用户单击“否”,则不保存文档。如果用户单击“是”,则保存文档。
Private Sub PgeWindowEx_OnBeforeSave(SaveAsUI As Boolean, Cancel As Boolean)
'Prompt user before saving the document
Dim strAns As String
strAns = MsgBox("Do you really want to save the document?", vbYesNo)
'Change cancel value based on user input
If strAns = VbNo Then
Cancel = True
End If
End Sub