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

関連項目