FrontPage VBA教程:OnPageNew事件

在新建网页时发生。

Private Sub Application_OnPageNew(ByVal pPage As PageWindow)

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

注释

当用户在框架集中新建网页时,OnPageNew 仅会在包含框架集标记的网页打开时,对框架网页触发一次。然后 FrontPage 会执行事件程序中指定的代码。

注意  OnPageNew事件只会为默认框架集触发,即使网页上还有其他框架。该事件只会在 FrontPage 处于“网页”视图模式时才会触发。如果 FrontPage 处于其他任何视图模式下,OnPageNew事件都不会触发。

VBA示例

本示例将主题应用于新网页。

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

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


Option Explicit
Private WithEvents eFPApplication As Application
Private pPage As PageWindowEx

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


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

将下列代码添加到代码窗口的 cmdAddPage_Click 部分。该代码向 PageWindows集合添加文件并将其打开。


Private Sub cmdAddPage_Click()
    Dim myPageWindows As PageWindows
    Dim myFile As String
    Set myPageWindows = ActiveWeb.ActiveWebWindow.PageWindows
    myFile = _
        "file:///C:/My Documents/My Webs/Rogue Cellars/Zinfandel.htm"
    myPageWindows.Add (myFile)
End Sub

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


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

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


Private Sub eFPApplication_OnPageNew(ByVal pPage As PageWindow)
    pPage.ApplyTheme ("artsy")
End Sub

上页:FrontPage VBA教程:OnPageClose事件 下页:FrontPage VBA教程:OnPageOpen事件

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事件
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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号