Examples: Creating view navigators

This example creates a view navigator and displays the MaxLevel property.

Sub Intialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim nav As NotesViewNavigator
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set nav = view.CreateViewNav()
  Messagebox nav.MaxLevel
End Sub

This example creates a view navigator for all entries under a specified category and then retrieves the first entry.

Sub Intialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim nav As NotesViewNavigator
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set nav = view.CreateViewNavFromCategory("Employees")
  Call nav.GetFirst
End Sub

This example creates a view navigator for the immediate children of the specified view entry.

Sub Intialize  
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim entry As NotesViewEntry  
  Dim nav As NotesViewNavigator
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase    
  Set view = db.GetView("By Category")
  Set entry = view.GetEntryByKey("Employees")
  Set doc = entry.Document  
  Set nav = view.CreateViewNavFromChildren(doc)
End Sub