OnPageClose 事件

       

在关闭网页时发生。

Private Sub Application_OnPageClose(ByVal pPage As PageWindow, Cancel As Boolean)

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

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

注释

OnPageClose 事件与 Application 对象相关联。当用户关闭 PageWindowEx 对象时,OnPageClose 事件会触发并且执行事件过程中指定的代码。

示例

本示例检查网页是否已被修改,而且如果 IsDirty 属性为 True 则在关闭网页之前保存该网页。

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

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

Option Explicit
Private WithEvents eFPApplication As Application
Private pPage As PageWindowEx

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

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

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

Private Sub cmdClosePage_Click()
    ActivePageWindow.Close
End Sub

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

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

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

Private Sub eFPApplication_OnPageClose(ByVal pPage As _
        PageWindow, Cancel As Boolean)
    If pPage.IsDirty = True Then pPage.Save
End Sub