OnPageNew Event

Occurs when a new page is created.

pPage   Required PageWindowEx. A PageWindowEx object.

Remarks

When the user creates a new page within a frameset, the OnPageNew event is only fired once for Frames pages—when the page containing the frameset tags is opened. Then FrontPage executes the code that you specified within the event procedure.

Note   The OnPageNew event only fires for the default frameset, even if there are more frames on the page. This event only fires if FrontPage is in Page view. If FrontPage is in any other view, the OnPageNew event won't fire.

Example

This example applies a theme to a new page.

Note   To run this example, you must have at least one open web. This example uses Rogue Cellars as the specified web and Zinfandel.htm as the specified page. You can create a web and page using these names or you can substitute a web and page of your choice.

Create a form called frmLaunchEvents.frm and add two buttons, a button called cmdAddPage, and a button called cmdCancel. Add the following code to the Declarations section of a form code window.

Option Explicit
Private WithEvents eFPApplication As Application
Private pPage As PageWindowEx

Add the following code to the UserForm_Initialize section of the code window.

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

Add the following code to the cmdAddPage_Click section of the code window. This code adds a file to the PageWindows collection and opens it.

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

Add the following code to the cmdCancel_Click section of the code window.

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

Add the following code to the eFPApplication_OnPageNew section of the code window.

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