LOTUSSCRIPT /COM/OLE のクラス

例:QueryRecalc イベント
次の QueryRecalc イベントは、更新するかどうかをユーザーに確認します。

%INCLUDE "lsconst.lss"

Sub Queryrecalc(Source As Notesuidocument, _
Continue As Variant)
 Dim answer As Integer
 If Source.EditMode Then
   answer = Messagebox _
   ("Do you want to recalculate the document at this time?", _
   MB_YESNO, "Recalculate?")
   If (answer <> IDYES) Then
     Continue = False
   End If
 End If
End Sub

関連項目