7.55.3 IF_KEYの使用例

LANSA

7.55.3 IF_KEYの使用例


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

IF_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コマンドのセクションを参照してください。