AutoTab プロパティ

LANSA

AutoTab プロパティ

AutoTabはカーソルを次のコントロールに移します。

入力フィールドが埋められ、カーソルを次の入力フィールド(次のTabPosition)に移動させたい時に、AutoTabプロパティをTrueに設定します。

AutoTabの使用方法を確認するには、次のソースをコピーしてフォームに貼り付け、フォームをコンパイルして実行してください。

FUNCTION options(*DIRECT) 

BEGIN_COM role(*EXTENDS #PRIM_FORM) CAPTION('AutoSelectItem & AutoTab Example') HEIGHT(205) LEFT(336) TOP(158) WIDTH(462)
DEFINE_COM class(#PRIM_CKBX) name(#CKBX_AUTOTAB) CAPTION('AutoTab True') DISPLAYPOSITION(5) LEFT(296) PARENT(#COM_OWNER) TABPOSITION(6) TOP(48)
DEFINE_COM class(#EMPNO.Visual) name(#EMPNO) AUTOSELECT(False) CAPTION('Employee Number') DISPLAYPOSITION(1) HEIGHT(22) LABELTYPE(Caption) LEFT(24) MARGINLEFT(112) PARENT(#COM_OWNER) TABPOSITION(1) TOP(64) WIDTH(209)
DEFINE_COM class(#PRIM_EDIT) name(#EDIT_1) AUTOSELECT(False) DISPLAYPOSITION(3) HEIGHT(22) LEFT(136) MAXLENGTH(5) PARENT(#COM_OWNER) TABPOSITION(2) TOP(88) VALUE('0') WIDTH(155)
DEFINE_COM class(#SALARY.Visual) name(#SALARY) AUTOSELECT(False) DISPLAYPOSITION(6) HEIGHT(22) LEFT(24) MARGINLEFT(113) PARENT(#COM_OWNER) TABPOSITION(3) TOP(112) WIDTH(273)
DEFINE_COM class(#PRIM_SPDT) name(#SPDT_1) DISPLAYPOSITION(7) HEIGHT(22) LEFT(136) PARENT(#COM_OWNER) TABPOSITION(4) TOP(136)
DEFINE_COM class(#PRIM_LABL) name(#LABL_1) CAPTION('Edit Box:') DISPLAYPOSITION(2) HEIGHT(19) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(7) TABSTOP(False) TOP(88) WIDTH(88)
DEFINE_COM class(#PRIM_LABL) name(#LABL_2) CAPTION('Spin Edit Box:') DISPLAYPOSITION(4) HEIGHT(25) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(5) TABSTOP(False) TOP(136) WIDTH(97)
DEFINE_COM class(#PRIM_LABL) name(#LABL_3) CAPTION('When AutoTab is set to true and you reach the end of an input field, the cursor moves automatically to the next.') DISPLAYPOSITION(8) HEIGHT(33) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(8) TABSTOP(False) TOP(8) WIDTH(425)
EVTROUTINE handling(#CKBX_AUTOTAB.Click)
IF cond('#CKBX_AUTOTAB.ButtonState = Checked')
SET com(#EMPNO) AUTOTAB(TRUE)
SET com(#EDIT_1) AUTOTAB(TRUE)
SET com(#SALARY) AUTOTAB(TRUE)
SET com(#spdt_1) AUTOTAB(TRUE)
ELSE
SET com(#EMPNO) AUTOTAB(false)
SET com(#EDIT_1) AUTOTAB(false)
SET com(#SALARY) AUTOTAB(false)
SET com(#spdt_1) AUTOTAB(false)
ENDIF
ENDROUTINE
END_COM