例: IsDefaultView property (NotesView - LotusScript®)

次のエージェントは、ビューのデフォルトのビュー属性を切り替えます。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = s.CurrentDatabase
  Set view = db.GetView("Topics")
  If view.IsDefaultView Then
    view.IsDefaultView = False
    Messagebox "Is not the default view",, view.Name
  Else
    view.IsDefaultView = True
    Messagebox "Is now the default view",, view.Name
  End If
End Sub