IsLinkBar Property

Returns a Boolean that indicates if the current navigation node is a link bar. Link bars provide hypertext links that allow you to navigate through the pages in the current web. Read-only.

expression   Required. An expression that returns a NavigationNode object.

Remarks

If False, the navigation node is not a link bar. If True, the navigation node is a link bar.

Example

The following example traverses through the navigation node hierarchy and displays the names of any link bars in the web. If no link bars are found a message is displayed to the user. Whether or not a navigation node is a link bar is determined by its IsLinkBar property.

Sub DisplayLinkBar()
'Return a collection of all navigation nodes used in the current web
'Searches through the collection and displays the names of all link bars

    Dim objApp As FrontPage.Application
    Dim objNavNode As NavigationNode
    Dim objNavNodes As NavigationNodes
    Dim strAns As String
    Dim blnFound As Boolean

    blnFound = False
    Set objApp = FrontPage.Application
    'Create a reference to the NavigationNodes collection
    Set objNavNodes = objApp.ActiveWeb.AllNavigationNodes
    'For each node in the collection
    For Each objNavNode In objNavNodes
       'If set to True, this is a link bar
       If objNavNode.IsLinkBar = True Then
           MsgBox objNavNode.Label & " is a link bar."
           blnFound = True
       End If
    'Go to next node
    Next objNavNode
    'If no link bars are found, display a message
    If blnFound = False Then
        MsgBox "There are no link bars in the current web."
    End If
End Sub