LOTUSSCRIPT /COM/OLE のクラス

例:PostPaste イベント
次の PostPaste イベントは、NotesUIView のイベントに対してグローバルな変数を使い、貼り付け操作の回数を数えて合計値を表示します。

(Declarations)
Dim pasteCount As Integer

Sub Postopen(Source As Notesuiview)
pasteCount = 0
End Sub

Sub Postpaste(Source As Notesuiview)
pasteCount = pasteCount + source.Documents.Count
End Sub

Sub Queryclose(Source As Notesuiview, Continue As Variant)
Messagebox pasteCount & " documents pasted", , _
"Paste operations"
End Sub

関連項目