D.10 フォームを閉じる直前に入力内容をチェックしたい

処理: フォームを閉じる直前に、フォームへの入力内容をチェックし、入力内容によって閉じることをキャンセルしたい場合、どうすればよいでしょうか？

操作方法

フォームを閉じる直前のチェックは、フォームのQueryCloseイベントに手続きを記述してください。

以下に例を示します。QueryCloseイベントのパラメタの詳細は、『リファレンス』を参照してください。

◆MainForm-QueryClose

    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    LINKAGE SECTION.
    01  POW-CANCEL PIC S9(4) COMP-5.
    PROCEDURE DIVISION USING POW-CANCEL.
 *    テキストボックスコントロールへの入力がなければ、
 *    メッセージボックスを表示し、再入力を促します。
      IF "Text" OF CmText1 = SPACE THEN
        INVOKE POW-SELF "DisplayMessage" 
            USING "テキストを入力してください"
        MOVE POW-TRUE TO POW-CANCEL
        INVOKE CmText1 "SetFocus"
        EXIT PROGRAM
     END-IF
      …（同様にその他のチェックをします）