LOTUSSCRIPT/COM/OLE CLASSES
Examples: Creating view navigators
1. 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
2. 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
3. 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
See Also
Creating view navigators
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary