リスト項目のExpand メソッド
Expandメソッドを使用して、ツリーの項目をプログラム上で展開します。
次のコードをコピー・貼り付けして、ExpandとCollapseメソッドがどのように作動するか確認してください。
FUNCTION options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(316) Clientwidth(408) Formposition(ScreenCenter) Height(343) Left(444) Top(128) Width(416)
Define_Com Class(#PRIM_TRVW) Name(#TRVW_1) Displayposition(1) Height(289) Left(24) Parent(#COM_OWNER) Tabposition(1) Top(8) Width(289)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_1) Keyposition(1) Level(1) Parent(#TRVW_1) Source(#DEPTMENT) Visible(False)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_3) Keyposition(1) Level(2) Parent(#TRVW_1) Source(#SECTION) Visible(False)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_2) Displayposition(1) Image(#VI_DEPTCL) Imageexpanded(#VI_DEPTOP) Level(1) Parent(#TRVW_1) Source(#DEPTDESC)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_4) Displayposition(1) Image(#VI_SECTCL) Imageexpanded(#VI_SECTOP) Level(2) Parent(#TRVW_1) Source(#SECDESC)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_5) Keyposition(1) Level(3) Parent(#TRVW_1) Source(#EMPNO) Visible(False)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_6) Displayposition(1) Image(#VI_EMPLOY) Level(3) Parent(#TRVW_1) Source(#SURNAME)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_1) Caption('Expand') Displayposition(2) Height(17) Left(320) Parent(#COM_OWNER) Tabposition(2) Top(8)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_2) Caption('Collapse') Displayposition(3) Height(17) Left(320) Parent(#COM_OWNER) Tabposition(3) Top(32)
EVTROUTINE handling(#TRVW_1.Initialize) options(*NOCLEARMESSAGES *NOCLEARERRORS)
SELECT fields(#EMPNO #SURNAME #DEPTMENT #SECTION) from_file(PSLMST)
FETCH fields(#DEPTDESC) from_file(DEPTAB) with_key(#DEPTMENT)
FETCH fields(#SECDESC) from_file(SECTAB) with_key(#DEPTMENT #SECTION)
ADD_ENTRY to_list(#TRVW_1)
ENDSELECT
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_1.Click)
Invoke Method(#TRVW_1.CurrentItem.Expand)
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_2.Click)
Invoke Method(#TRVW_1.CurrentItem.Collapse )
ENDROUTINE
END_COM