LOTUSSCRIPT /COM/OLE のクラス

例:NotesUIDatabase クラス
次の例は、データベースが開かれている間に削除された文書の数を追跡します。

(Declarations)
Dim deleteCount As Integer

Sub Postopen(Source As Notesuidatabase)
deleteCount = 0
End Sub

Sub Querydocumentdelete(Source As Notesuidatabase, _
Continue As Variant)
If Continue Then
deleteCount = deleteCount + Source.Documents.Count
End If
End Sub

Sub Querydocumentundelete(Source As Notesuidatabase, _
Continue As Variant)
If Continue Then
deleteCount = deleteCount - Source.Documents.Count
End If
End Sub

Sub Postdocumentdelete(Source As Notesuidatabase)
Messagebox Source.Documents.Count _
& " deleted or marked for deletion"
End Sub

Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
Messagebox deleteCount & " documents deleted",, _
"Net deletions"
End Sub

関連項目