LOTUSSCRIPT /COM/OLE のクラス

例:OpenView メソッド
次の 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

関連項目