IsLinkBar Property
True indicates that the navigation node is a link bar. Read-only Boolean.
Note Link bars provide hypertext links that allow you to navigate through the pages in the current Web site.
expression.IsLinkBar
expression Required. An expression that returns a NavigationNode object.
Example
The following example traverses the navigation node hierarchy and displays the names of any link bars in the Web site. If no link bars are found a message is displayed to the user.
Sub DisplayLinkBar()
'Return a collection of all navigation nodes used in the current Web site
'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 site."
End If
End Sub