OnAfterWebPublish 事件

在发布站点之后发生。

pWebEx  必选，WebEx 类型。指定的 WebEx 对象。

Success  必选，Boolean 类型。如果指定站点发布成功则为 True。

注释

OnAfterWebPublish 事件与 Application 对象相关联。用户在 Microsoft FrontPage 中发布站点后，OnAfterWebPublish 事件会触发并执行事件过程中指定的代码。

示例

本示例在站点发布之后创建值为 True 的属性。

注意  若要运行本示例，必须打开一个站点。本示例使用一个称为 Rogue Cellars 的站点。您可以创建一个称为 Rogue Cellars 的站点，或可以在下列代码示例中用您所选择的站点来代替。

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

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

Private Sub cmdPublishWeb_Click()
    ActiveWeb.Publish "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_OnAfterWebPublish 部分。本代码向包含 True 值的站点添加一个称为 Published 的属性。

Private Sub eFPApplication_OnAfterWebPublish(ByVal pWeb As Web, Success As Boolean)
    If Success = True Then
        pWeb.Properties.Add "Published", True
        pWeb.Properties.ApplyChanges
    Else
        MsgBox "There was a problem publishing your " & pWeb & " web."
    End If
End Sub