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