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

関連項目

IsDefaultView プロパティ

用語集