例: NotesViewNavigator プロパティにアクセスする

次の例では、ビューナビゲータの親ビューと最大ナビゲーションレベルを表示します。

Sub Intialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim nav As NotesViewNavigator
  Dim pv As NotesView
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set nav = view.CreateViewNavFromCategory("Products")
  Set pv = nav.ParentView
  Messagebox "MaxLevel: " & nav.MaxLevel & Chr(10) _
  & "Parent view: " & pv.Name
End Sub