ツールバーのボタンがクリックされたときの手続きは、ツールバーコントロールのButtonClickイベントに記述します。このサンプルプログラムでは、ボタンのインデックスが1から順に、メニュー項目の"MN-OPEN-Click"、"MN-SAVE-Click"および"MN-PRINT-Click"の手続きと同様の手続きを実行します。ButtonClickイベントでは、クリックされたボタンのインデックスが引数に設定されているため、その値を判別して処理を切り分けます。
MainForm-MouseUp
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 GET-STYLE PIC S9(4) COMP-5. 01 BUTTON-STATE PIC S9(4) COMP-5. LINKAGE SECTION. 01 POW-BUTTONINDEX PIC S9(9) COMP-5. PROCEDURE DIVISION USING POW-BUTTONINDEX. EVALUATE POW-BUTTONINDEX WHEN 1 * ツールバーの開くボタンがクリックされた場合です。 MOVE POW-CDOPEN TO GET-STYLE CALL "GET-FILE-NAME" USING GET-STYLE BUTTON-STATE IF BUTTON-STATE = POW-FALSE THEN EXIT PROGRAM END-IF CALL "LOAD-DATA" WHEN 2 * ツールバーの保存ボタンがクリックされた場合です。 IF FILE-NAME = SPACE THEN MOVE POW-CDSAVE TO GET-STYLE CALL "GET-FILE-NAME" USING GET-STYLE BUTTON-STATE IF BUTTON-STATE = POW-FALSE THEN EXIT PROGRAM END-IF END-IF CALL "SAVE-DATA" WHEN 3 * ツールバーの印刷ボタンがクリックされた場合です。 INVOKE CmPrint1 "PrintForm" END-EVALUATE
