OnAfterPageSave 事件

在保存网页后发生。

pPage  必选，PageWindowEx 类型。PageWindowEx 对象。

Success  必选，Boolean 类型。如果 PageWindowEx 对象保存成功则为 True。

注释

OnAfterPageSave 事件与 Application 对象相关联。用户保存网页或关闭 Microsoft FrontPage 之后，OnAfterPageSave 事件会触发并且执行事件过程中指定的代码。

示例

本示例在保存网页之后显示一个消息框并且显示该网页的文件名。

注意  若要运行本示例，必须至少打开一个站点并且打开该站点中的一个网页。

创建一个称为 frmLaunchEvents.frm 的表单并添加两个按钮，分别称为 cmdSave 和 cmdCancel。将下列代码添加到表单代码窗口的 Declarations 部分。

Option Explicit
Private WithEvents eFPApplication As Application
Private pPage As PageWindowEx

将下列代码添加到代码窗口的 UserForm_Initialize 部分。

Private Sub UserForm_Initialize()
    Set eFPApplication = New Application
End Sub

将下列代码添加到代码窗口的 cmdSave_Click 部分。

Private Sub cmdSave_Click()
    Dim myPageWindow As PageWindowEx

    Set myPageWindow = ActiveWeb.ActiveWebWindow.ActivePageWindow
    myPageWindow.Save
End Sub

将下列代码添加到代码窗口的 cmdCancel_Click 部分。

Private Sub cmdCancel_Click()
    'Hide the form.
    frmLaunchEvents.Hide
    Exit Sub
End Sub

将下列代码添加到代码窗口的 eFPApplication_OnAfterPageSave 部分。

Private Sub eFPApplication_OnAfterPageSave(ByVal pPage As _
        PageWindow, Success As Boolean)
    If Success = True Then
        MsgBox "The following page was saved: " & pPage.File.Name
    Else
         MsgBox "There was a problem with saving your page: " & _
        pPage.File.Name
    End If
End Sub