Occurs when a page is opened.
Private Sub expression_OnPageOpen(ByVal pPage As PageWindowEx)
expression The variable name of an object of type Application declared using the WithEvents keyword in a class module.
pPage Required PageWindowEx. A PageWindowEx object.
Remarks
The OnPageOpen event is associated with the Application object. When the user opens a page, Microsoft FrontPage opens the frameset for the page and fires the OnPageOpen event for the default frameset. Then FrontPage executes the code that you specified within the event procedure.
Note The OnPageOpen event only fires for the default frameset, even if there are more frames on the page.The OnPageOpen event only fires if the page is not open.
Example
The following example changes the title of the FPHTMLDocument object, when the document is opened in a PageWindowEx object.
Note To run this example, you must have at least one open Web site. This example uses Rogue Cellars as the specified Web site and Zinfandel.htm as the specified page. You can create a Web site and page using these names or you can substitute a Web site 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 form code window.
Option Explicit
Private WithEvents eFPApplication As Application
Private Sub UserForm_Initialize()
Set eFPApplication = New Application
End Sub
Private Sub cmdAddPage_Click()
Dim myPageWindows As PageWindows
Dim myFile As String
Set myPageWindows = ActiveWeb.ActiveWebWindow.PageWindows
myFile = _
"C:/My Documents/My Web Sites/Rogue Cellars/Zinfandel.htm"
myPageWindows.Add (myFile)
End Sub
Private Sub cmdCancel_Click()
'Hide the form.
frmLaunchEvents.Hide
Exit Sub
End Sub
Private Sub eFPApplication_OnPageOpen(ByVal pPage As _
PageWindowEx)
Dim myDoc As FPHTMLDocument
Set myDoc = pPage.ActiveDocument
myDoc.Title = "Rogue Cellars Home Page"
End Sub