Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/if_key_e.htm]
現在地:

...

7.71.3 IF_KEY の使用例

以下は、IF_KEYコマンドの例です。

IF_KEYコマンドを使用して、ユーザーがどのファンクション・キーを押したかをユーザーに示します。 KEYコマンドを使用して、ユーザーがどのファンクション・キーを押したかをユーザーに示します。 

   BEGIN_LOOP

...


DISPLAY  FIELDS(#ORDNUM #CUSTNUM #DATEDUE)

...

 EXIT_KEY(*

...

YES L01) MENU_KEY(*

...

YES L01) ADD_KEY(*YES)

...

 USER_KEYS((

...

15 'Task1')(

...

16 'Task2')(

...

17 'Task3')

...

 (

...

18 'Task4')(

...

19 'Task5'))

...


L01:

...

  IF_KEY    WAS(*ENTER)
      MESSAGE   MSGTXT('The ENTER key was pressed')
     ENDIF
     IF_KEY    WAS(*MENU)
     MESSAGE   MSGTXT('The MENU key was pressed')
     ENDIF
     IF_KEY    WAS(*ADD)
      MESSAGE   MSGTXT('The ADD key was pressed')
      ENDIF
      IF_KEY    WAS(*USERKEY1)
      MESSAGE   MSGTXT('User key 1 (F15) was pressed')
      ENDIF
      IF_KEY    WAS(*USERKEY2)
      MESSAGE   MSGTXT('User key 2 (F16) was pressed')
      ENDIF
      IF_KEY    WAS(*USERKEY3)
      MESSAGE   MSGTXT('User key 3 (F17) was pressed')
      ENDIF
      IF_KEY    WAS(*USERKEY4)
      MESSAGE   MSGTXT('User key 4 (F18) was pressed')
      ENDIF
      IF_KEY    WAS(*USERKEY5)
      MESSAGE   MSGTXT('User key 5 (F19) was pressed')
      ENDIF
      END_LOOP

ファンクション・キーの使用および割り当ての詳細については、DISPLAY、REQUEST、POP_UP、およびBROWSEコマンドのセクションを参照してください。        MESSAGE   MSGTXT('The ENTER key was pressed')       ENDIF         IF_KEY    WAS(*MENU)       MESSAGE   MSGTXT('The MENU key was pressed')       ENDIF         IF_KEY    WAS(*ADD)       MESSAGE   MSGTXT('The ADD key was pressed')       ENDIF         IF_KEY    WAS(*USERKEY1)       MESSAGE   MSGTXT('User key 1 (F15) was pressed')       ENDIF         IF_KEY    WAS(*USERKEY2)       MESSAGE   MSGTXT('User key 2 (F16) was pressed')       ENDIF         IF_KEY    WAS(*USERKEY3)       MESSAGE   MSGTXT('User key 3 (F17) was pressed')       ENDIF         IF_KEY    WAS(*USERKEY4)       MESSAGE   MSGTXT('User key 4 (F18) was pressed')       ENDIF         IF_KEY    WAS(*USERKEY5)       MESSAGE   MSGTXT('User key 5 (F19) was pressed')       ENDIF         END_LOOP  
ファンクション・キーの使用および割り当ての詳細については、DISPLAY、REQUEST、POP_UP、およびBROWSEコマンドのセクションを参照してください。
[ Image Removed |../../index.htm#lansa/if_key_e.htm]