
No.1ベストアンサー
- 回答日時:
プロパティは、ちょっとすぐには思いつきません。
(無いかもしれません。)私がやったときは、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
- 回答日時:
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でその範囲が広がりそうです。
何時かまた、質問投稿をした時には宜しくお願い致します。有り難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォームの位置を取得したい
Visual Basic(VBA)
-
フォームの高さを数値で指定したいのですが
Excel(エクセル)
-
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
-
4
アクセスVBA フォームのスクロールバーを動かす。
Visual Basic(VBA)
-
5
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
6
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
7
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
8
Accessレポートの詳細の高さ(VBA)
Excel(エクセル)
-
9
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
10
Access サブフォームでの選択行の取得
その他(データベース)
-
11
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
12
Accessを開くと「排他モードじゃないので変更しても保存できない」との旨の表示が出てしまう。
Access(アクセス)
-
13
Accessのフォーム画面について
その他(データベース)
-
14
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
-
15
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
-
16
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
17
スクロールバーをVBAで操作したい
Access(アクセス)
-
18
ポップアップと作業ウィンドウ固定の違いは
Access(アクセス)
-
19
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
20
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Outlookでこのような表示がされ...
-
ウィンドウが、前回閉じた位置...
-
後ろにあるウィンドウが前に出...
-
Outlookのエラー表示について
-
EXCELについて枠の固定と分割の...
-
ウィンドウを最大化しないと表...
-
エクセル 枠の中に小さい枠
-
ウインドウを毎回同じ位置、大...
-
エクセルのウインドウを常にア...
-
サイズ変更後のサイズで常に開...
-
MacのVLCでウインドウの幅の変更
-
エクセルのシート上に別のシー...
-
スクリプトって、何ですか?ど...
-
デジタル時計の時刻合わせの方...
-
Javascript_submit()完了後に処...
-
Edge Chrom などの超初心者質問...
-
McAfeeのポップアップ
-
Youtubeのバグ
-
マイページはどこを開くの
-
デスクトップ画面を4分割するには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ウインドウを毎回同じ位置、大...
-
Outlookでこのような表示がされ...
-
Outlookのエラー表示について
-
Excelのワークシートが全部表示...
-
Excel操作 ウィンドウで出した...
-
スライドショーを全画面でなく...
-
Access VBA でForm位置を参照す...
-
表示するウィンドウのサイズを...
-
MacのVLCでウインドウの幅の変更
-
excelのファイルを閉じると空の...
-
EXCELについて枠の固定と分割の...
-
エクセル 枠の中に小さい枠
-
ウインドウを最小化したり、消...
-
Excel操作 横列を縮めたあとに...
-
パソコンを起動させたら文字の...
-
画面のサイズがラジコのサイズ...
-
Explorerのウインドウを複数開...
-
ウィンドウが画面外に出てしま...
-
ネット上に掲載のPDFファイルの...
-
Windows10、フォルダウインドウ...
おすすめ情報