FrontPage VBA教程:AddLinkBar方法

返回代表链接栏的NavigationNode对象。

expression.AddLinkBar(NodeLabel, ModificationType, LeftSibling)

expression  必选。返回NavigationNodes集合的表达式。

NodeLabel  必选。String 类型。代表链接栏的标签或名称。

ModificationType  必选。FpStructModType 常数。代表链接栏的结构。

FpStructModType 可以是下列这些 FpStructModType 常数之一。
fpStructBaseOnSibling 将链接栏基于离它最近的同级节点。
fpStructLeftmostChild 将链接栏基于它最左边的子节点。
fpStructRightmostChild 将链接栏基于它最右边的子节点。

LeftSibling  可选。Variant 类型。代表节点左边的同级节点。此值用于确定新链接栏在层次结构中的位置。

说明

新节点不会出现在导航栏中。只有节点的子节点才会出现在导航栏中。

注意  在子节点添加到结构之前,必须将新链接栏添加到该结构中。

VBA示例

下列示例创建了一个新链接栏,该链接栏基于它在导航节点层次结构中的同级节点。


Sub NewLinkBar()
'Adds a new link bar to the current web
    Dim objApp As FrontPage.Application
    Dim objNavNodes As NavigationNodes
    Dim objNavNode As NavigationNode
    Set objApp = FrontPage.Application
    Set objNavNodes = objApp.ActiveWeb.AllNavigationNodes
    'Reference a node to use in the method
    Set objNavNode = objNavNodes.Item(1)
    'Create new link bar based on sibling
    objNavNodes.AddLinkBar NodeLabel:="New link bar", _
                           ModificationType:=fpStructBaseOnSibling, _
                           LeftSibling:=objNavNode
    'Apply navigation structure so node will appear
    objApp.ActiveWeb.ApplyNavigationStructure
End Sub

上页:FrontPage VBA教程:AddChoice方法 下页:FrontPage VBA教程:ApplyChanges方法

FrontPage VBA教程:AddLinkBar方法

FrontPage VBA教程:ApplyChanges方法 FrontPage VBA教程:ApplyNavigationStructure方法
FrontPage VBA教程:ApplyTemplate方法 FrontPage VBA教程:ApplyTheme方法
FrontPage VBA教程:CancelRequests方法 FrontPage VBA教程:Checkin方法
FrontPage VBA教程:Checkout方法 FrontPage VBA教程:clear方法
FrontPage VBA教程:Close方法 FrontPage VBA教程:commit方法
FrontPage VBA教程:Copy方法 FrontPage VBA教程:createElement方法
FrontPage VBA教程:createStyleSheet方法 FrontPage VBA教程:createStyleState方法
FrontPage VBA教程:createUndoTransaction方法 FrontPage VBA教程:Delete方法
FrontPage VBA教程:Edit方法 FrontPage VBA教程:elementFromPoint方法
FrontPage VBA教程:execCommand方法 FrontPage VBA教程:getBotAttribute方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号