例: NotesUIDatabase class
次の例は、データベースが開かれている間に削除された文書の数を追跡します。
(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