FrontPage VBA教程:IsLinkBar属性

返回 Boolean 类型的值,该值表明当前导航节点是否为链接栏。链接栏提供了允许您在当前站点中的网页间导航的超链接。只读。

expression.IsLinkBar

expression  必选。返回NavigationNode对象的表达式。

说明

如果为 False,则导航节点不是链接栏。如果为 True,则导航节点是链接栏。

VBA示例

下列示例遍历导航节点层次结构,并显示站点中任何链接栏的名称。如果没有找到链接栏,则向用户显示一条消息。导航节点是否为链接栏是由 IsLinkBar属性决定的。


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

上页:FrontPage VBA教程:IsHiddenFoldersEnabled属性 下页:FrontPage VBA教程:IsOpen属性

FrontPage VBA教程:IsLinkBar属性

FrontPage VBA教程:IsOpen属性 FrontPage VBA教程:IsOrphan属性
FrontPage VBA教程:IsReadable属性 FrontPage VBA教程:IsRoot属性
FrontPage VBA教程:IsUnderRevisionControl属性 FrontPage VBA教程:IsWeb属性
FrontPage VBA教程:IsWritable属性 FrontPage VBA教程:Item属性
FrontPage VBA教程:Label属性 FrontPage VBA教程:LanguageDesignation属性
FrontPage VBA教程:LanguageSettings属性 FrontPage VBA教程:lastModified属性
FrontPage VBA教程:linkColor属性 FrontPage VBA教程:links属性
FrontPage VBA教程:List属性 FrontPage VBA教程:Lists属性
FrontPage VBA教程:location属性 FrontPage VBA教程:LookupField属性
FrontPage VBA教程:MaximumValue属性 FrontPage VBA教程:MaxLength属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号