OnWebOpen 事件

在打开站点时发生。

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

注释

OnWebOpen 事件与 Application 对象相关联。当用户在 Microsoft FrontPage 中打开站点时，OnWebOpen 事件会触发并且执行事件过程中指定的代码。

示例

本示例在打开站点时打开 Index.htm 文件。

注意  本示例使用 Rogue Cellars 作为指定要打开的站点。您可以创建一个称为 Rogue Cellars 的站点，或可用您所选择的站点来代替。

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

Option Explicit
Private WithEvents eFPApplication As Application
Private pPage As PageWindowEx

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

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

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

Private Sub cmdOpenWeb_Click()
    Webs.Open ("file:///C:/My Documents/My Webs/Rogue Cellars")
End Sub

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

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

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

Private Sub eFPApplication_OnWebOpen(ByVal pWeb As Web) 
    Dim myFile As WebFile

    Set myFile = pWeb.RootFolder.Files.Add("index.htm")
    myFile.Open
End Sub