全部显示

AddLinkBar 方法

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

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