LOTUSSCRIPT/COM/OLE CLASSES

Examples: OpenView method
This PostOpen event changes to the "By Category" view.

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

See Also