OnBeforeSave 事件

       

在活动扩展网页窗口中的网页保存之前发生。

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