| |
▼亜矢 さん：
>お世話になります。
>外部アプリケーションのwindow(画面）の位置（座標）をどのようにしたら
>取得できるか教えて頂きたいと思います。画面位置は左上と右下だけ取得できれば
>高さと幅は取得できると思いますが・・・
こんな感じでしょうか
検証していませんのでスペルミスがあるかも
' 座標
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
' ウィンドウの長方形の寸法
Private Declare Function GetWindowRect Lib "user32.dll" _
(ByVal hWnd As Long, _
lpRect As RECT) As Long
Sub SampleA()
dim RC As RECT
dim hWnd As Long
dim lngRTn As Long
hWnd = Window Handle (FindWindow等で取得)
lngRTn = GetWindowRect(hWnd, RC)
with RC
Debug.Print .Left, .Top, Right, .Bottom
end With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
