全部显示

AddLinkBar 方法

       

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

expression.AddLinkBar(NodeLabel, ModificationType, LeftSibling)

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

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

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

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

说明

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

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

示例

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

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