返回在导航序列中的下一个导航节点。只读,Object 类型。
虽然 Next 属性是 NavigationNode 类中的成员,但这个属性只在指定 NavigationNode 对象的 Children 对象集合中导航。
注意 Children 集合不会环绕,因此 Children(Children.Count – 1).Next
之类的代码会返回“没有设置对象或 With 变量”错误。
本示例将导航指针移到下一个节点,除非当前节点是导航结构中这一级的最后一个节点。
Private Sub MoveNext()
Dim theNode As NavigationNode
Dim theNextNode As NavigationNode
On Error Resume Next
Set theNode = ActiveWeb.HomeNavigationNode.Children(1)
Set theNextNode = theNode.Next
If Err <> 0 then
MsgBox 揈nd of the current navigation row?
End If
End Sub