例: ビューナビゲータを作成する

次の例では、ビューナビゲータを作成して MaxLevel プロパティを表示します。

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

次の例では、指定のカテゴリに属する全エントリ用にビューナビゲータを作成し、先頭のエントリを取り出します。

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

次の例では、指定のビューエントリに直属の子エントリ用にビューナビゲータを作成します。

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