例: QueryRecalc event (NotesUIDocument - LotusScript®)

次の 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