現在地: Visual LANSA 開発者ガイド > 2. グラフィカル・ユーザーインターフェース・アプリケーションの作成 > 2.16 コレクション > FOR/ENDFOR
FOR/ENDFOR

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