例: QueryClose event (NotesUIView - LotusScript®)

次の QueryClose イベントでは、ビューを閉じるかどうかを確認します。

(Globals) (Declarations)
%INCLUDE "lsconst.lss"
Sub Queryclose(Source As Notesuiview, Continue As Variant)
  If Messagebox ("Do you really want to close the view?", _
  MB_YESNO + MB_ICONQUESTION, _
  "OK to close?") = IDYES Then
    Continue = True
  Else
    Continue = False
  End If
End Sub