Page History
この例では、リスト・ビューに社員の詳細を組み込みます。さらに、リスト・ビューには、選択とﾌｫｰｶｽの2つの列があり、社員のリスト・ビューのエントリーが選択されたまたはフォーカスが置かれたときにYESになります。
例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。
...
FUNCTION options(*DIRECT)
BEGIN_
...
COM role(*
...
EXTENDS #PRIM_FORM)
...
HEIGHT(346)
...
LEFT(381)
...
TOP(135)
...
WIDTH(549)
DEFINE_
...
COM class(#PRIM_LTVW)
...
name(#EMPLIST)
...
DISPLAYPOSITION(1)
...
FULLROWSELECT(True)
...
HEIGHT(285)
...
LEFT(8)
...
PARENT(#COM_OWNER)
...
TABPOSITION(1)
...
TOP(28)
...
WIDTH(529)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_1)
...
CAPTION('Focus')
...
CAPTIONTYPE(Caption)
...
DISPLAYPOSITION(1)
...
PARENT(#EMPLIST)
...
SOURCE(#STD_CODE)
...
WIDTH(13)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_2)
...
CAPTION('Selected')
...
CAPTIONTYPE(Caption)
...
DISPLAYPOSITION(2)
...
PARENT(#EMPLIST)
...
SOURCE(#STD_CODEL)
...
WIDTH(13)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_3)
...
DISPLAYPOSITION(3)
...
PARENT(#EMPLIST)
...
SOURCE(#EMPNO)
...
WIDTH(22)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_4)
...
DISPLAYPOSITION(4)
...
PARENT(#EMPLIST)
...
SOURCE(#SURNAME)
...
WIDTH(25)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_5)
...
DISPLAYPOSITION(5)
...
PARENT(#EMPLIST)
...
SOURCE(#GIVENAME)
...
WIDTH(33)
...
EVTROUTINE handling(#com_owner.Initialize)
...
SELECT fields(#EMPLIST)
...
from_file(PSLMST)
...
CHANGE field(#STD_
...
CODEL #STD_CODE)
...
to(*BLANKS)
ADD_
...
ENTRY to_list(#EMPLIST)
ENDSELECT
ENDROUTINE
...
EVTROUTINE handling(#EMPLIST.ItemGotFocus)
...
CHANGE field(#STD_CODE)
...
to(YES)
UPD_
...
ENTRY in_list(#EMPLIST)
ENDROUTINE
...
EVTROUTINE handling(#EMPLIST.ItemLostFocus)
...
CHANGE field(#STD_CODE)
...
to(*BLANKS)
UPD_
...
ENTRY in_list(#EMPLIST)
ENDROUTINE
...
EVTROUTINE handling(#EMPLIST.ItemGotSelection)
...
CHANGE field(#STD_CODEL)
...
to(YES)
UPD_ENTRY
ENDROUTINE
...
EVTROUTINE handling(#EMPLIST.ItemLostSelection)
...
CHANGE field(#STD_CODEL)
...
to(*BLANKS)
UPD_
...
ENTRY in_list(#EMPLIST)
ENDROUTINE
END_COM