FrontPage VBA教程:NavigationNode对象

   
多个对象
NavigationNode
多个对象

代表站点导航结构中的一个节点。NavigationNode对象是NavigationNodes集合的成员。在 NavigationNodes集合中,各 NavigationNode对象的索引是从零开始的。

要点  从 NavigationNode对象可以访问站点中所有其他导航节点。默认情况下,RootNavigationNode对象在每次创建站点时都会创建,它是导航结构的基础,通过Children属性进行访问。导航结构的第一个子节点通常是站点的主页,可以通过HomeNavigationNode属性来访问。但是,根导航节点的第一个子节点可以是任何网页,可能根本就不包含 HomeNavigationNode对象。

使用 NavigationNode对象

使用 NavigationNode属性可以返回 NavigationNode对象。下列示例为WebFiles集合的WebFile对象建立一个导航节点标签列表。


Private Sub GetNavigationNode()
Dim myWeb As WebEx
Dim myWebFiles As WebFiles
Dim myWebFile As WebFile
Dim myNavNodeLabel As String
Dim myLabel As String
On Error Resume Next
Set myWeb = ActiveWeb
Set myFiles = myWeb.RootFolder.Files
With myFiles
    For Each myFile In myFiles
        myLabel = myFile.NavigationNode.Label
        If Err <> 0 Then Exit Sub
        myNavNodeLabel = myNavNodeLabel & myLabel & vbCRLF
    Next
End With
End Sub

Children属性返回站点导航结构中的子节点集合。下列语句返回活动站点中导航结构的子节点数。


myNavChildrenCount _
    = ActiveWeb.RootFolder.Files(0).NavigationNode.Children.Count

使用 Children(index) 可以返回单个 NavigationNode对象,其中 index 是导航节点项目的索引号。下列语句返回 NavigationNodes集合中第一个导航节点的文件名称。


myNavNodeName _
    = ActiveWeb.RootFolder.Files(0).NavigationNode.Children(0).File.Name

File属性返回与 NavigationNode对象相关联 File对象。如果文件是打开的,下列语句将返回 True。


myNavFile = ActiveWeb.RootFolder.Files(3).NavigationNode.File.IsOpen

Home属性返回 Home对象,该对象与当前导航节点、引用信息(例如 Children、File、Label、Next、Prev)以及主页的其他属性相关联。下列语句返回 NavigationNode对象 Home属性的 URL。


myHomePageUrl _
    = ActiveWeb.RootFolder.Files(5).NavigationNode.Home.Url

您可以返回 Label属性来设置或返回文本,该文本可以用作导航结构中的按钮或者导航栏中的文本。下列示例返回主页的标签。


myLabel = ActiveWeb.RootFolder.Files(0).NavigationNode.Label

使用 Next、Parent、Prev 或 Url属性可以返回与指定属性相关联的导航节点。下列示例返回与上一个 NavigationNode对象相关联的 URL。


myPrevNode = ActiveWeb.RootFolder.Files(1).NavigationNode.Prev.Url

使用 Web属性可以返回与当前导航节点相关联的 WebEx对象。下列示例返回当前导航节点的 WebEx对象。


myNavNodeWeb = _
    ActiveWeb.RootFolder.Files(2).NavigationNode.Web.Url

使用 Move方法可以将导航节点从一个子节点移到另一个子节点。下列示例将导航节点移到同一站点中同级节点的子节点位置。


Private Sub MoveNavNode()
Dim myNodes As NavigationNodes
Dim myNode As NavigationNode
Set myNodes = ActiveWeb.RootNavigationNode.Children
Set myNode = myNodes(4)
myNode.Move myNodes, myNodes(2)
ActiveWeb.ApplyNavigationStructure
End Sub

上页:FrontPage VBA教程:MetaTags集合对象 下页:FrontPage VBA教程:NavigationNodes集合对象

FrontPage VBA教程:NavigationNode对象

FrontPage VBA教程:NavigationNodes集合对象 FrontPage VBA教程:PageWindowEx对象
FrontPage VBA教程:PageWindows集合对象 FrontPage VBA教程:Properties集合对象
FrontPage VBA教程:Survey对象 FrontPage VBA教程:System对象
FrontPage VBA教程:Theme对象 FrontPage VBA教程:Themes集合对象
FrontPage VBA教程:UndoTransaction对象 FrontPage VBA教程:WebEx对象
FrontPage VBA教程:WebFile对象 FrontPage VBA教程:WebFiles集合对象
FrontPage VBA教程:WebFolder对象 FrontPage VBA教程:WebFolders对象集合
FrontPage VBA教程:Webs集合对象 FrontPage VBA教程:WebWindowEx对象
FrontPage VBA教程:WebWindows集合对象 FrontPage VBA教程:ActiveDocument属性
FrontPage VBA教程:activeElement属性 FrontPage VBA教程:ActiveFrameWindow属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号