MS Access Tips/Sample and VBA and Blog customize etc...

フォームを常に最前面に表示したい

タイトル画像

フォームの「ポップアップ」プロパティを「はい」にするとAccess内のウィンドウの最前面になりますが、他のアプリケーションがアクティブになるとその背後に隠れてしまいます。他のアプリケーションも含めてフォームを常に最前面に表示したいという要件もありますね。

Windows APIのSetWindowPosを使うと可能です。

難易度:

Windows API の SetWindowPos の宣言

標準モジュールの宣言部に下記のコードをコピーして貼り付けます。

フォームを常に最前面に表示する関数

上記の標準モジュールに下記の関数もコピーして貼り付けます。

使用法

最前面に表示したいフォームの「ポップアップ」プロパティを「はい」にします。
フォームの「開く時」のイベントプロシージャを下記のように記述します。

これでこのフォームを開くと常に最前面に表示されます。

参考リンク
Acc 2000: Access ウィンドウのままにその他のウィンドウの手前にする方法

拍手する

Leave a reply






Trackbacks

trackback URL
http://hatenachips.blog34.fc2.com/tb.php/498-bdb92dcd
該当の記事は見つかりませんでした。