[ |../../index.htm#lansa/for_e.htm]
現在地:

7.62.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  
[ |../../index.htm#lansa/for_e.htm]