Microsoft Access Club > Access一日一見 >このページ >次頁 <前項  サイト内検索


全てのウィンドウを重ねて表示 - Microsoft Shell Controls And Automation



この 全てのウィンドウを重ねて表示 することは、実際の Access作業中にそう頻繁に行なうことはないでしょう。技術の一つとして覚えておられればよいかと思います。このような時は、 Microsoft Shell Controls And Automation ライブラリ を 利用して簡単に実現させることができます。

参照設定

Microsoft Shell Controls And Automation ライブラリは外部ライブラリーのため、下記のようにVBE画面から 参照設定 で利用可能な状態に 設定します。

・参照設定ライブラリ設定

サンプルプロシージャの作成

何れでも利用できるようにFunctionプロシージャを作成します。

'外部のフォルダー内コンテンツ一覧を表示します。
'参照設定で「Microsoft Shell Controls And Automation」にチェックを入れて下さい。

Function Folder_Open()

    Dim objsample As Shell
    Set objsample = New Shell
    
    objsample.CascadeWindows  '全てのウィンドウを重ねて表示します。
    Set objsample = Nothing '開放します。

End Function
実行結果

プロシージャをイミディエイトウィンドウで実行すると、Windowsで立ち上がっている全てのオブジェクトが下記のように重なり表示されます。#サンプルは、WindowsXPです。

この状態から各コントロールを操作することが可能です。

2003/09/07 

ページの先頭へ 前ページへ戻る


全てのウィンドウを重ねて表示 - Microsoft Shell Controls And Automation


-Microsoft Access Club-

cPanel と PLESKをインストールした専用・共有レンタルサーバーを銀行振込でご提供中。契約書は一切不要です。
cPanel や PLESKをインストールした専用・共有レンタルサーバー
まずは1ヶ月から...。
日本国内の銀行振込がOK、契約書は不要です。