Page History
[ 
|../../index.htm#lansa/l4wdev06_1445.htm]
現在地:
...
For/EndForループを使用してコレクション内のアイテムにアクセスできます。
この例では、ChildFormsコレクション内のすべてのフォームを左に5ピクセル移動します。
...
For Each(#Current)
...
In(#ChildForms)
...
Change Field(#NEW_LEFT)
...
To('#Current.
...
Left -
...
5')
...
Set Com(#Current)
...
Left(#New_Left)Endfor
...
この例は、サブメニュー#smnu_1内のすべてのアイテムを無効にします。
For Each(#Current) In(#smnu_1.Items)Set Com(#Current) Enabled(False)
...
Endfor