例: GetPrevCategory method

次の例は、ビューナビゲータの最初のカテゴリの下の子エントリの数を表示します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entryA As NotesViewEntry
Dim entryB As NotesViewEntry
Dim entryC As NotesViewEntry
Dim nav As NotesViewNavigator
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set nav = view.CreateViewNav
Set entryA = nav.GetFirst
Set entryB = nav.GetNextCategory(entryA)
Set entryC = nav.GetPrevCategory(entryB)
Messagebox entryC.ChildCount