OnPageClose Event Example

This example checks if a page has been modified and saves the page if the IsDirty property is True before closing the page.

Note   To run this example, you must have at least one open web and one open page within that web.

Create a form called frmLaunchEvents.frm and add two buttons, a button called cmdClosePage, 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 PageWindow

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 cmdClosePage_Click section of the code window.

Private Sub cmdClosePage_Click()
ActivePageWindow.Close
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_OnPageClose section of the code window.

Private Sub eFPApplication_OnPageClose(ByVal pPage As _
    PageWindow, Cancel As Boolean)
If pPage.IsDirty = True Then pPage.Save
End Sub