例: QueryRecalc event

次の QueryRecalc イベントは、ユーザーが [いいえ] と答えた場合に、ビューの再計算を中止します。

(Globals) (Declarations)
%INCLUDE "lsconst.lss"
Sub Queryrecalc(Source As Notesuiview, Continue As Variant)
  If Messagebox ("Do you really want to recalc?", _
  MB_YESNO + MB_ICONQUESTION, _
  "Recalc operation") = IDNO Then
    Continue = False
  End If
End Sub