NotificationStyle プロパティ
NotificationStyleはイベントがどのように起動されるかを制御します。
省略値では、リスト、コンボ・ボックス、ツリーまたはグリッド項目がプログラム上で処理される時、項目のイベント（例えば ItemChanged、ItemGotSelection、ItemGotFocus、ItemLost focusやItemLostSelectionなど）は起動されません。 ユーザーにより項目が操作された時（マウスやキーボードを使用して）のみ、これらのイベントは起動されます。
項目をプログラム上で処理している時に項目のイベントを起動したい時は、コントロールのNotificationStyleをProgramに設定します。 こうすることで、プログラムであれ、ユーザーであれ、項目が操作された時はいつも同じイベントが起動されるようになります。
次のサンプル・アプリケーションをコピーし貼り付けて、ツリー・ビュー項目がプログラムでどのように選択されるかを見ることができます。
FUNCTION OPTIONS(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Height(306) Left(333) Top(142) Width(521)
Define_Com Class(#PRIM_TRVW) Name(#TRVW_1) Componentversion(1) Displayposition(2) Height(222) Left(8) Notificationstyle(Program) Parent(#COM_OWNER) Tabposition(2) Top(0) Width(495)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_1) Level(1) Parent(#TRVW_1) Source(#DEPTMENT) Visible(False)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_2) Displayposition(1) Keyposition(1) Level(1) Parent(#TRVW_1) Source(#DEPTDESC)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_3) Displayposition(1) Keyposition(1) Level(2) Parent(#TRVW_1) Source(#FULLNAME)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_1) Caption('Click Here to programatically trigger an ItemGotSelection event') Displayposition(1) Height(33) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(240) Width(492)
EVTROUTINE handling(#com_owner.Initialize)
SET #com_owner caption(*component_desc)
select *all deptab
SELECT FIELDS(#SURNAME #GIVENAME) FROM_FILE(PSLMST1) WITH_KEY(#DEPTMENT)
use bconcat with_args(#givename #surname) to_get(#fullname)
add_entry #trvw_1
endselect
endselect
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_1.Click)
selectlist #trvw_1
IF COND('#fullname = ''VERONICA BROWN''')
set #trvw_1.CurrentItem selected(True)
leave
endif
endselect
ENDROUTINE
EVTROUTINE HANDLING(#TRVW_1.ItemGotSelection) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
USE BUILTIN(MESSAGE_BOX_SHOW) WITH_ARGS(OK OK INFORMATION *blanks 'ItemGotSelection event fired')
set #trvw_1.CurrentItem ensurevisible(true)
ENDROUTINE
END_COM