Access VBA でForm位置を参照するプロパティ？

質問

Access 97 VBAでプログラムを作ってます。
Accessウインドウ内のForm又はForm内のControlをクリックした時に、Accessウインドウ左上隅からFormの左上角までの位置（Left、Top）を参照するためのプロパティを教えて下さい。
CurrentSectionLeftとCurrentSectionTopは、Form内での位置参照です。Formそのものの位置を参照する方法は無いのでしょうか？

回答No.1

ARC · ベストアンサー

プロパティは、ちょっとすぐには思いつきません。(無いかもしれません。)
私がやったときは、Windows APIを使いました。

'フォームの宣言部
Option Explicit

Type RECT
　　　　Left As Long
　　　　Top As Long
　　　　Right As Long
　　　　Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

'コマンド1押下時
Private Sub コマンド1_Click()
　　Dim RectFrm As RECT
　　Dim RectAcc As RECT
　　Call GetWindowRect(Me.hwnd, RectFrm)
　　Call GetWindowRect(Application.hWndAccessApp, RectAcc)
End Sub

こんな感じで分かりますか？
RectFrm構造体には、フォームの位置情報が入っています。
RectAcc構造体にはAccessのウインドウの位置情報が入っていると思います。
ってことで、Accessのウインドウ位置からフォームのウインドウ位置を引き算すれば、相対位置が求まるような…
(実はこの辺、試したのはかなり昔の話です。VBAコード自体には問題は無いはずですが、「引き算すれば」とかのお部分に関しては、それほど自信は無いです。
ってことで、申し訳ないですが、詳細な部分についてはご自身で確認してくださいませ。)

ちなみに、単位はTwipsではなくて、ピクセルです。(Windows APIを使っているので。)

補足

ARCさん へ　　回答文に書いて戴いた[Windows API]が何の事だか全く理解出来ないまま、取り敢えず、回答ステートメントをそっくりそのまま実行して見ました。見事に位置情報が参照でき感激しました。大変感謝しております。
　教えてGooに質問した位置情報参照については解決致しました。でも、ARCさんの回答にある[Declare Function...LIb...]なるモノを知りませんでした。ハンドブック(ナツメ社「Access97VBA」)には、「ダイナミックリンクライブラリー(DLL)の外部プロシージャへの....」と説明がありました。位置情報を参照出来る以外にも色々便利な機能が有るように思いますので、是非詳しく知りたいと思います。
そこで、素人が理解出来る範囲で「外部プロシージャ」なるモノを使用する方法を知る(勉強する）手がかりを教えて下さい。
厚かましいお願いですか、ご教授願えれば幸いです。

回答No.2

ARC

APIってのは、あるソフトを外部から制御できるように、公開されている関数のことです。
Windows APIはWindowsの様々な機能を制御するためのものです。

今回使用した「GetWindowRect」という関数もその一つで、その名の通り、ウインドウの矩形範囲(RECT)を取得するための関数です。

で、これらのAPIは通常、DLLやOCXといった形で提供されます。
Declare ステートメントは、「このDLLに収録されているこの関数をVBから使用する」っていうことを宣言するための命令です。
今回の場合、Windowsが提供する「User32.DLL」に含まれる「GetWindowRect」という関数を使用することを宣言しています。

hWndっていう引数を宣言して、フォームのhWndプロパティを渡していますが、これは、「ウインドウハンドル」といって、個々のウインドウに設定されたIDのことです。
Windowsはこの「hWnd」の値を使って、ウインドウの管理を行っています。

WindowsAPIを使用法を知るには、まずは本屋さんでWindowsAPIをVBから使うことについての本をご購入ください。(各社から多数出版されています。)
それを見ながら、実際に使ってみると、ある程度の規則性があることが分かると思います。(C言語の若干の知識があると尚いいのですが…)

規則性がつかめたら、そのうちにまったく知らない関数であっても、関数名と引数を見るだけで使い方が見えてきたりします。

あと、VBから使用可能なWindowsAPIについては Win32API.Txtというファイルにまとめられています。
Visual Basicなどの開発言語や、Officeのディベロッパ エディションなどに付属しています。

お礼

ARCさん へ
早々に回答を戴き感謝致します。大変分かり易い説明です。一読しただけで、API・Declare・ウインドウハンドルの概略の概念が理解出来ました。
早々に「WindowsAPI」をキーワードにして書店で解説書を探してみます。
「ウインドウ内の位置情報を知りたい」と云う単一的な疑問解決だけで無く、新たな道具となるAPIと云うモノの存在を教えて戴いた事、深謝致します。
趣味の範囲(一部は生活実用）でVBプログラミングを楽しんでおりますが、これからはAPIでその範囲が広がりそうです。
何時かまた、質問投稿をした時には宜しくお願い致します。有り難う御座いました。