LOTUSSCRIPT /COM/OLE のクラス
Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidb As NotesUIDatabase Set uidb = ws.CurrentDatabase Call uidb.Close End Sub
関連項目