D.18 入力されたキーの文字コードを無効にしたい

処理: 入力されたキーの文字コードを取り扱う場合に、特定の文字コードを無効にしたい場合にはどうすればよいでしょうか？

操作方法

フォーム全体に対して、特定の文字コードを無効にする場合は、フォームのPreKeyPressイベントの中で、文字コードを示すKeyAsciiパラメタを識別し、無効にする文字コードであれば、KeyAsciiパラメタに0を設定してください。

また、コントロールごとに特定の文字コードを無効にする場合は、各コントロールのKeyPressイベントの中で、文字コードを示すKeyAsciiパラメタを識別し、無効にする文字コードであれば、KeyAsciiパラメタに0を設定してください。

たとえば、テキストボックスコントロールのKeyPressイベントに以下のように記述した場合、数字の1の入力を無効にすることができます。

◆KeyPress

    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    LINKAGE SECTION.
	01  POW-KEYASCII  PIC S9(4) COMP-5.
    PROCEDURE        DIVISION USING POW-KEYASCII.
         IF POW-KEYASCII = POW-KEY-1 THEN
           MOVE 0 TO POW-KEYASCII
         END-IF