FrontPage VBA教程:OnWebClose事件

在关闭站点时发生。

Private Sub Application_OnWebClose(ByVal pWeb As Web, Cancel As Boolean)

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

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

注释

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

VBA示例

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

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

创建一个称为 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

将下列代码添加到代码窗口的 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

 

上页:FrontPage VBA教程:OnRecalculateHyperlinks事件 下页:FrontPage VBA教程:OnWebFileCheckOut事件

FrontPage VBA教程:OnWebClose事件

FrontPage VBA教程:OnWebFileCheckOut事件 FrontPage VBA教程:OnWebNew事件
FrontPage VBA教程:OnWebOpen事件 FrontPage VBA教程:WindowActivate事件
FrontPage VBA教程:WindowDeactivate事件 FrontPage VBA教程:隐藏的语言元素
FrontPage VBA教程:由设计阶段控件访问 FrontPage 中的对象模型 FrontPage VBA教程:使用 Microsoft Visual Basic 访问 FrontPage 框架集
FrontPage VBA教程:创建 Web 站点 FrontPage VBA教程:探索 FrontPage 中的 Page对象模型
FrontPage VBA教程:探索 FrontPage 中的对象模型 FrontPage VBA教程:探索过程
FrontPage VBA教程:Microsoft FrontPage 2002 支持的 HTML事件 FrontPage VBA教程:FrontPage 2002 不支持的 HTML事件
FrontPage VBA教程:FrontPage 2002 支持的 HTML方法 FrontPage VBA教程:FrontPage 2002 不支持的 HTML方法
FrontPage VBA教程:Microsoft FrontPage 2002 中的 HTML对象 FrontPage VBA教程:FrontPage 2002 支持的 HTML属性
FrontPage VBA教程:FrontPage 2002 不支持的 HTML属性 FrontPage VBA教程:FrontPage 特有的方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号