例: DialogBoxCanceled Property

次のスクリプトは DialogBoxCanceled プロパティをテストし、続いてダイアログをキャンセルしたいかどうかをユーザーに確認するプロンプトを表示します。NotesUIWorkspace クラスの DialogBox メソッドで指定したフォームの QueryClose イベントにこのスクリプトを添付しなければなりません。

(Globals)(Declarations)
%INCLUDE "lsconst.lss"
Sub Queryclose(Source As NotesUIDocument, Continue As Variant)
  If Source.DialogBoxCanceled Then
    If Messagebox ("Do you really want to Cancel", _
    MB_YESNO+MB_ICONQUESTION, "Cancel") = IDNO Then
      Continue = False
    End If
  End If   
End Sub