8.11.2 EVTROUTINEの使用例

LANSA

8.11.2 EVTROUTINEの使用例


次のプログラムは、ユーザーが#HelloBtnをクリックするか、メニュー項目の#HelloMitを選択したときに、"hello"のメッセージを出力します。

EVTROUTINE HANDLING(#HelloBtn.Click #HelloMit.Click)
         MESSAGE MSGTXT('hello')
ENDROUTINE
 

次のプログラムでは、まずクリック・イベントが処理される#PHBN_1、#PHBN_2、#PHBN_3という3つのプッシュ・ボタンに総称名の#AnyComponentを定義します。次に、#Button_Captionフィールドの値をクリックされたボタンのキャプションに設定します。

EVTROUTINE HANDLING(#PHBN_1.Click #PHBN_2.Click #PHBN_3.Click) COM_SENDER(#AnyComponent)
    #Button_Caption := #AnyComponent.Caption
ENDROUTINE  
 

次のプログラムは、メニュー項目にポップアップ・メニューとコレクションを定義します。フォームが初期化されるとコレクションに5つのメニュー項目が作成されます。メニュー項目コレクションのクリック・イベントのイベント・ルーチンでは、項目に総称名の#AnyOfTheGroupが指定されます。次にこの名前を使用して、クリックされたメニュー項目のキャプションを#M_Captionという名前のフィールドに割り当てます。

DEFINE_COM CLASS(#PRIM_PMNU) NAME(#PMNU_1)
DEFINE_COM CLASS(#PRIM_KCOL) NAME(#ITEMS) COLLECTS(#PRIM_MITM) KEYEDBY(#STD_NUM)
 
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
   Set Com(#Items<1>) Caption('Item One') Parent(#PMNU_1) 
   Set Com(#Items<2>) Caption('Item Two') Parent(#PMNU_1) 
   Set Com(#Items<3>) Caption('Item Three') Parent(#PMNU_1)
   Set Com(#Items<4>) Caption('Item Four') Parent(#PMNU_1) 
   Set Com(#Items<5>) Caption('Item Five') Parent(#PMNU_1) 
ENDROUTINE  
 
EVTROUTINE HANDLING(#Items<>.Click) COM_SENDER(#AnyOfTheGroup)
   Change #M_Caption #AnyOfTheGroup.Caption
ENDROUTINE