例: CreateViewNavFromChildren method

次の例は、最後の文書エントリの子からビューナビゲータを作成します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim nav As NotesViewNavigator
Set db = session.CurrentDatabase
Set view = db.GetView("My View")
Set doc = view.GetLastDocument
Set nav = view.CreateViewNavFromChildren(doc)