OnWebNew 事件

在新建站点时发生。

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

注释

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

示例

本示例创建临时站点然后添加新文件。

创建一个称为 frmLaunchEvents.frm 的表单并添加两个按钮，分别称为 cmdCreateWeb 和 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

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

Private Sub cmdCreateWeb_Click()
    Webs.Add ("file:///C:/My Documents/My Webs/TempWeb")
End Sub

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

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

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

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

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