FrontPage VBA教程:OnAfterWebPublish事件

在发布站点之后发生。

Private Sub Application_OnAfterWebPublish(ByVal pWeb As Web, Success As Boolean)

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

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

注释

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

VBA示例

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

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

创建一个称为 frmLaunchEvents.frm 的表单并添加两个命令按钮,分别称为cmdPublishWebcmdCancel。将下列代码添加到表单代码窗口的 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

上页:FrontPage VBA教程:OnAfterViewChange事件 下页:FrontPage VBA教程:OnAfterWebWindowSubViewChange事件

FrontPage VBA教程:OnAfterWebPublish事件

FrontPage VBA教程:OnAfterWebWindowSubViewChange事件 FrontPage VBA教程:OnAfterWebWindowViewChange事件
FrontPage VBA教程:OnBeforePageSave事件 FrontPage VBA教程:OnBeforePageWindowViewChange事件
FrontPage VBA教程:OnBeforePublish事件 FrontPage VBA教程:OnBeforeSave事件
FrontPage VBA教程:OnBeforeSubViewChange事件 FrontPage VBA教程:OnBeforeViewChange事件
FrontPage VBA教程:OnBeforeWebPublish事件 FrontPage VBA教程:OnBeforeWebWindowSubViewChange事件
FrontPage VBA教程:OnBeforeWebWindowViewChange事件 FrontPage VBA教程:OnClose事件
FrontPage VBA教程:OnDeactivate事件 FrontPage VBA教程:OnPageClose事件
FrontPage VBA教程:OnPageNew事件 FrontPage VBA教程:OnPageOpen事件
FrontPage VBA教程:OnPageWindowActivate事件 FrontPage VBA教程:OnRecalculateHyperlinks事件
FrontPage VBA教程:OnWebClose事件 FrontPage VBA教程:OnWebFileCheckOut事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号