ウィンドウをすべて列挙する

Visual LANSA

ウィンドウをすべて列挙する


ウィンドウをすべて列挙するプログラム例を以下に示します。

* Loop through all currently opened windows by using the

* Windows collection of class VF_SY154 objects that the

* Framework manager exposes for use in your programs

* Use the VL F2=Feature Help to explore the properties

* and methods that class #VF_SY154 exposes for you to use.

 

For #Window in(#AvFrameworkManager.avWindowCollection)

 

Use Message_box_Add ('The window named' #Window.WindowName 'is at position' #Window.Top #Window.Left)

 

EndFor

 

Use Message_Box_show

 

これを実行すると次のようなメッセージ・ボックスが表示されます。

 

重要:#VF_SY154オブジェクト参照は、プログラム上で確実に解放してください。