NavigationNodes 集合对象

多个对象 NavigationNodes NavigationNode

基于 Microsoft FrontPage 的站点的导航结构中 NavigationNode 对象的集合。每个 NavigationNode 对象都代表一个指向站点上网页的指针。NavigationNode 对象是 NavigationNodes 集合的成员。

使用 NavigationNodes 对象

使用 NavigationNode 属性可以返回 WebFile 对象的 NavigationNode 对象。有关返回站点导航结构内子结点集合的详细信息，请参阅 Children 属性。下列示例为 NavigationNodes 集合中的每个 NavigationNode 对象创建相关联的导航标签。此过程在到达导航结构末尾时退出。

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(index) 可以返回单个 NavigationNode 对象，其中 index 是子节点集合中某个项目的索引号。下列示例返回集合中的第一个 NavigationNode 对象，即主页。

Set myNavNodeOne = ActiveWeb.RootNavigationNode.Children(0)

使用 Add 方法可以将 NavigationNode 对象添加到 NavigationNodes 集合中。下列示例在当前导航结构最右端添加一个导航节点。

Private Sub AddNewNavNode()
    Dim myWeb As WebEx
    Dim myNewNavNode As NavigationNode
    Dim myNavChildren As NavigationNodes

    Set myWeb = ActiveWeb
    Set myNavChildren = _
        myweb.rootfolder.Files(1).NavigationNode.Children
    myNewNavNode = _
        myNavChildren.Add("C:\My Webs\Sale.htm", "Sale", fpStructRightmostChild)
    myWeb.ApplyNavigationStructure
End Sub

注意  完成导航结构的修改之后，必须使用 ApplyNavigationStructure 方法应用所做的更改，这样 FrontPage 中的导航结构才能更新。