Page History
...
次のフォームを見ると、スピン編集ボックスや(ピックリスト型)リストが、どのように値を返すかがわかります。
フォームのソース・コードは次の通りです。
...
Function
...
Options(*DIRECT)
...
BEGIN_COM
...
ROLE(*EXTENDS
...
#PRIM_FORM)
...
CLIENTHEIGHT(189)
...
CLIENTWIDTH(637)
...
HEIGHT(227)
...
LEFT(437)
...
TOP(222)
...
WIDTH(653)
...
DEFINE_COM
...
CLASS(#SIZE.Visual)
...
NAME(#SIZE)
...
DISPLAYPOSITION(2)
...
LEFT(24)
...
MARGINLEFT(100)
...
PARENT(#COM_OWNER)
...
TABPOSITION(2)
...
TOP(64)
...
WIDTH(201)
...
DEFINE_COM
...
CLASS(#STD_TEXTS.Visual)
...
NAME(#STD_TXT_1)
...
CAPTION('Value
...
of
...
#Size:')
...
DISPLAYPOSITION(1)
...
HEIGHT(19)
...
LABELTYPE(Caption)
...
LEFT(256)
...
MARGINLEFT(120)
...
PARENT(#COM_OWNER)
...
TABPOSITION(1)
...
TOP(72)
...
USEPICKLIST(False)
...
WIDTH(217)
...
DEFINE_COM
...
CLASS(#STD_TEXTS.Visual)
...
NAME(#STD_TXT_2)
...
CAPTION('Item
...
Caption
...
of
...
#Size:')
...
DISPLAYPOSITION(3)
...
HEIGHT(19)
...
LABELTYPE(Caption)
...
LEFT(256)
...
MARGINLEFT(120)
...
PARENT(#COM_OWNER)
...
TABPOSITION(3)
...
TOP(96)
...
USEPICKLIST(False)
...
WIDTH(217)
...
DEFINE_COM
...
CLASS(#SALARY.Visual)
...
NAME(#SALARY)
...
DISPLAYPOSITION(4)
...
LEFT(24)
...
MARGINLEFT(100)
...
PARENT(#COM_OWNER)
...
TABPOSITION(4)
...
TOP(24)
...
WIDTH(201)
...
DEFINE_COM
...
CLASS(#STD_COUNT.Visual)
...
NAME(#STD_COUNT)
...
CAPTION('Value
...
of
...
#Salary:')
...
DISPLAYPOSITION(5)
...
HEIGHT(19)
...
LABELTYPE(Caption)
...
LEFT(256)
...
MARGINLEFT(120)
...
PARENT(#COM_OWNER)
...
TABPOSITION(5)
...
TOP(28)
...
USEPICKLIST(False)
...
WIDTH(217)
...
Evtroutine
...
Handling(#SALARY.Changed)
...
Options(*NOCLEARMESSAGES
...
*NOCLEARERRORS)
...
Change
...
Field(#STD_COUNT)
...
To(#SALARY)
...
Endroutine
...
Evtroutine
...
Handling(#SIZE.Changed)
...
Options(*NOCLEARMESSAGES
...
*NOCLEARERRORS)
...
Change
...
Field(#STD_TXT_1)
...
To(#SIZE)
...
Change
...
Field(#STD_TXT_2)
...
To('#SIZE.text')
...
Endroutine
...
End_Com
チェック・ボックスがオンであれば対応するピックリストの第1の値、オフであれば第2の値が返されます。
次のフォームは、チェック・ボックスの値を表示するものです。
フォームのソース・コードは次の通りです。
...
Begin_Com
...
Role(*EXTENDS
...
#PRIM_FORM)
...
Caption('Test
...
Form')
...
Height(139)
...
Left(414)
...
Top(164)
...
Width(421)
...
Define_Com
...
Class(#HEALTHFND.Visual)
...
Name(#HEALTHFND)
...
Displayposition(1)
...
Left(19)
...
Parent(#COM_OWNER)
...
Tabposition(1)
...
Top(47)
...
Define_Com
...
Class(#STD_TEXTS.Visual)
...
Name(#STD_TEXTS)
...
Caption('Value
...
of
...
#HEALTHFND:')
...
Displayposition(2)
...
Height(19)
...
Labeltype(Caption)
...
Left(216)
...
Parent(#COM_OWNER)
...
Tabposition(2)
...
Top(48)
...
Width(185)
...
Evtroutine
...
Handling(#HEALTHFND.Changed)
...
Options(*NOCLEARMESSAGES
...
*NOCLEARERRORS)
...
Change
...
Field(#STD_TEXTS)
...
To(#HEALTHFND)
...
Endroutine
...
End_Com