AutoSelectItem プロパティ
AutoSelectItemは自動的に最初の項目を設定します。
コンボ・ボックスにフォーカスが当たった時にリストの最初の項目でドロップダウンのコンボ・ボックスの編集部分を埋めたくない場合は、AutoSelectItemプロパティをFalseを設定します。
AutoTabの使用方法を確認するには、次のソースをコピーしてフォームに貼り付け、フォームをコンパイルして実行してください。
FUNCTION options(*DIRECT)
BEGIN_COM role(*EXTENDS #PRIM_FORM) CAPTION('AutoSelectItem & AutoTab Example') HEIGHT(149) LEFT(336) TOP(158) WIDTH(264)
DEFINE_COM class(#PRIM_CKBX) name(#CKBX_AUTOSEL) CAPTION('AutoSelectItem True') DISPLAYPOSITION(2) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(2) TOP(8)
DEFINE_COM class(#PRIM_CMBX) name(#CMBX_1) AUTOSELECT(False) AUTOSELECTITEM(False) DISPLAYPOSITION(3) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(3) TOP(40) VALUE('ABCDE') WIDTH(217)
DEFINE_COM class(#PRIM_CBCL) name(#CBCL_1) DISPLAYPOSITION(1) PARENT(#CMBX_1) SOURCE(#EMPNO) WIDTH(20)
DEFINE_COM class(#PRIM_PHBN) name(#PHBN_1) CAPTION('Reload') DISPLAYPOSITION(1) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(1) TOP(80) WIDTH(115)
EVTROUTINE handling(#com_owner.Initialize)
SET com(#com_owner) CAPTION(*component_desc)
SELECT fields(#CMBX_1) from_file(PSLMST)
ADD_ENTRY to_list(#CMBX_1)
ENDSELECT
ENDROUTINE
EVTROUTINE handling(#PHBN_1.Click)
CLR_LIST named(#CMBX_1)
SELECT fields(#CMBX_1) from_file(PSLMST)
ADD_ENTRY to_list(#CMBX_1)
ENDSELECT
ENDROUTINE
EVTROUTINE handling(#CKBX_AUTOSEL.Click)
IF cond('#CKBX_AUTOSEL.ButtonState = Checked')
SET com(#CMBX_1) AUTOSELECTITEM(TRUE)
ELSE
SET com(#CMBX_1) AUTOSELECTITEM(false)
ENDIF
ENDROUTINE
END_COM