コンボ・ボックス

フィールド名

SEX (Alpha 1)

説明

フィールドをフォーム上にコンボ・ボックスとして表示します。

フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。「Male」および「Female」の2項目をピックリストに追加し、PRIM_EVPLのAppearance プロパティを DropDownList に変更します。いったんフィールドを保存し、フォーム上でVisualPicklistクラスを使います。

フィールドのソース

BEGIN_COM ROLE(*EXTENDS #PRIM_OBJT)

 

BEGIN_COM ROLE(*Visual #PRIM_EVEF) NAME(#VisualEdit) COMPONENTVERSION(1) HEIGHT(19) USEPICKLIST(False) WIDTH(178)

 

End_Com

 

BEGIN_COM ROLE(*picklist) NAME(#LIST)

DEFINE_COM CLASS(#PRIM_PKIT) NAME(#ITEM1) CAPTION('Male') DEFAULT(True) PARENT(#LIST) VALUE('M')

DEFINE_COM CLASS(#PRIM_PKIT) NAME(#ITEM2) CAPTION('Female') PARENT(#LIST) VALUE('F')

End_Com

 

BEGIN_COM ROLE(*Visual #PRIM_EVPL) NAME(#VisualPicklist) APPEARANCE(DropDownList) COMPONENTVERSION(1) DEFAULTVISUAL(True) HEIGHT(69) MARGINLEFT(50) WIDTH(125)

 

End_Com

 

END_COM 
End_Com

 

フォームのソース

Function Options(*DIRECT)

 

BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) CLIENTHEIGHT(131) CLIENTWIDTH(319) HEIGHT(169) LEFT(440) TOP(196) WIDTH(335)

DEFINE_COM CLASS(#SEX.Visual) NAME(#SEX) DISPLAYPOSITION(1) LEFT(64) PARENT(#COM_OWNER) TABPOSITION(1) TOP(24)

 

 

End_Com

 

外観