例: GotoPrevSibling method

次の Visual Basic コード (GotoPrevSibling_Click Sub) は、ビューナビゲータの 1 つ前の同レベルのエントリに移動します。

Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim n As NotesViewNavigator
Dim e As NotesViewEntry
Dim lastPosition As String
Private Sub GotoPrevSibling_Click()
Call n.GotoPrevSibling(e)
Set e = n.GetCurrent
If e.GetPosition(".") = lastPosition Then
  MsgBox "No more siblings", , "END"
Else
  lastPosition = e.GetPosition(".")
End If
End Sub
Private Sub InitializeNav_Click()
Set s = New NotesSession
s.Initialize
Set db = s.GetDatabase("", "Web test")
Set v = db.GetView("By Category")
v.AutoUpdate = False
Set n = v.CreateViewNav
End Sub