OnWebClose 事件

在关闭站点时发生。

pWeb  必选，WebEx 类型。WebEx 对象。

Cancel  必选，Boolean 类型。如果通过用户界面取消关闭过程，或如果 Cancel 被设置成 True，则为 True。默认值为 False。

注释

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

示例

本示例重复地通过打开的网页, 并且若有必要，在关闭站点前保存网页。

注意  若要运行本示例，必须至少打开一个站点并且打开该站点中的一个网页。本示例使用一个称为 Rogue Cellars 的站点作为指定站点。您可以创建一个称为 Rogue Cellars 的站点，或可用您所选择的站点来代替。

创建一个称为 frmLaunchEvents.frm 的表单并添加两个按钮，分别称为 cmdClosePage 和 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

将下列代码添加到代码窗口的 cmdCloseWeb_Click 部分。这个代码示例关闭指定的站点。

Private Sub cmdCloseWeb_Click()
    Webs("file:///C:/My Documents/My Webs/Rogue Cellars").Close
End Sub

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

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

将下列代码添加到代码窗口的 eFPApplication_OnWebClose 部分。该代码示例在打开的网页中循环，如果网页修改过则将其保存。

Private Sub eFPApplication_OnWebClose(ByVal pWeb As Web, _
        Cancel As Boolean)
    Dim myPageWindows As PageWindows
    Dim myPageWindow As PageWindowEx

    Set myPageWindows = pWeb.ActiveWebWindow.PageWindows

    For Each myPageWindow In myPageWindows
        If myPageWindow.IsDirty = True Then myPageWindow.Save
    Next
End Sub