8.12.2 FORの使用例
Columnsコレクション
この例では、リスト・ビューの列を反復して列のDisplayPosition属性とWidth属性をグリッドに取り込みます。
For Each(#Current) In(#ltvw_1.Columns)
Set Com(#STD_NUM) Value(#current.displayposition)
Set Com(#std_amnt) Value(#current.width)
Add_Entry To_List(#GRID_1)
Endfor
ComponentMembersコレクション
この例では、フォーム上の全メンバー・コンポーネントを記録してグリッドに記載します。
For Each(#Current) In(#COM_OWNER.ComponentMembers)
Change Field(#STD_NAME) To('#CURRENT.NAME')
Add_Entry To_List(#GRID_1)
Endfor
ComponentFormsコレクション
この例では、現在アプリケーションに認識されている全フォームのコレクションを反復ループしてそのコレクションをグリッドに記録します。
For Each(#Current) In(#SYS_APPLN.ComponentForms)
Change Field(#STD_NAME) To('#CURRENT.ComponentTypeName')
Add_Entry To_List(#GRID_1)
Endfor
Itemsコレクション
この例では、#PHBN_1がクリックされると#SMNU_1サブメニューのメニュー項目はすべて無効になり、#PHBN_2がクリックされるとメニュー項目は有効になります。
Evtroutine Handling(#PHBN_1.Click)
For Each(#Current) In(#smnu_1.Items)
Set Com(#Current) Enabled(False)
Endfor
Endroutine
Evtroutine Handling(#PHBN_2.Click)
For Each(#Current) In(#smnu_1.Items)
Set Com(#Current) Enabled(True)
Endfor
Endroutine