FrontPage VBA教程: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 中的导航结构才能更新。

上页:FrontPage VBA教程:NavigationNode对象 下页:FrontPage VBA教程:PageWindowEx对象

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属性 FrontPage VBA教程:ActivePageWindow属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号