FrontPage VBA教程:OnAfterPageSave事件

在保存网页后发生。

Private Sub Application_OnAfterPageSave(ByVal pPage As PageWindow, Success As Boolean)

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

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

注释

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

VBA示例

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

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

创建一个称为 frmLaunchEvents.frm 的表单并添加两个按钮,分别称为cmdSavecmdCancel。将下列代码添加到表单代码窗口的 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

上页:FrontPage VBA教程:OnActivate事件 下页:FrontPage VBA教程:OnAfterPageWindowViewChange事件

FrontPage VBA教程:OnAfterPageSave事件

FrontPage VBA教程:OnAfterPageWindowViewChange事件 FrontPage VBA教程:OnAfterPublish事件
FrontPage VBA教程:OnAfterSave事件 FrontPage VBA教程:OnAfterSubViewChange事件
FrontPage VBA教程:OnAfterViewChange事件 FrontPage VBA教程:OnAfterWebPublish事件
FrontPage VBA教程:OnAfterWebWindowSubViewChange事件 FrontPage VBA教程:OnAfterWebWindowViewChange事件
FrontPage VBA教程:OnBeforePageSave事件 FrontPage VBA教程:OnBeforePageWindowViewChange事件
FrontPage VBA教程:OnBeforePublish事件 FrontPage VBA教程:OnBeforeSave事件
FrontPage VBA教程:OnBeforeSubViewChange事件 FrontPage VBA教程:OnBeforeViewChange事件
FrontPage VBA教程:OnBeforeWebPublish事件 FrontPage VBA教程:OnBeforeWebWindowSubViewChange事件
FrontPage VBA教程:OnBeforeWebWindowViewChange事件 FrontPage VBA教程:OnClose事件
FrontPage VBA教程:OnDeactivate事件 FrontPage VBA教程:OnPageClose事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号