フィールド名
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
外観
