FrontPage VBA教程:OnBeforePageSave事件

在保存网页之前发生。

Private Sub Application_OnBeforePageSave(ByVal pPage As PageWindow, SaveAsUI As Boolean, Cancel As Boolean)

pPage  必选,PageWindowEx 类型。指定的 PageWindowEx对象。

SaveAsUI  必选,Boolean 类型。设置成 True,以第一次保存此页。如果 SaveAsUI 设置成 True,则用户用“另存为”对话框保存此网页。如果 SaveAsUI 设置成 False, 则用户用“保存”对话框保存现有文件。

Cancel  必选,Boolean 类型。设置成 True 时会使 Microsoft FrontPage 放弃保存。当利用编程方式将 Cancel 设置为 True 时,用户可以通过单击表单上的“取消”按钮来放弃保存过程。默认值为 False。

注释

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

注意  如果将 Cancel 设置为 True,则不会保存网页。

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_OnBeforePageSave 部分。


Private Sub eFPApplication_OnBeforePageSave(ByVal pPage As _
        PageWindow, SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox "The following page will be saved: " & pPage.File.Name _
        & "will be saved with the title: " & pPage.Document.Title
End Sub

上页:FrontPage VBA教程:OnAfterWebWindowViewChange事件 下页:FrontPage VBA教程:OnBeforePageWindowViewChange事件

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事件 FrontPage VBA教程:OnPageNew事件
FrontPage VBA教程:OnPageOpen事件 FrontPage VBA教程:OnPageWindowActivate事件
FrontPage VBA教程:OnRecalculateHyperlinks事件 FrontPage VBA教程:OnWebClose事件
FrontPage VBA教程:OnWebFileCheckOut事件 FrontPage VBA教程:OnWebNew事件
FrontPage VBA教程:OnWebOpen事件 FrontPage VBA教程:WindowActivate事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号