例: OpenView method

次の PostOpen イベントは、[By Category] ビューに変更します。

Sub Postopen(Source As Notesuidatabase)
  Call Source.OpenView("By Category")
End Sub
Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uidb As NotesUIDatabase
  Set uidb = ws.CurrentDatabase
  Call uidb.OpenView("By Category", "b")
End Sub
Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uidb As NotesUIDatabase
  Set uidb = ws.CurrentDatabase
  Call uidb.OpenView("By Category", , True)
End Sub