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