[ Image Removed |../../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
   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 Handling2がクリックされるとメニュー項目は有効になります。 
   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