１３０．ウインドウの外側のサイズを取得する

＜　使用用途　＞
ウインドウの外側のサイズを取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のGetWindowRect使用します
GetWindowRect＝＞ウインドウの外側のサイズを取得
　　＜引数＞
　　　　 hWnd：ウインドウのハンドル
　　　　 lpRect：RECT構造体
　　＠戻り値＠
　　　　　使わなくて良い
＊RECT構造体に格納される値はスクリーン座標なので注意

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, lpRect As RECT) As Long

Public Type RECT
　 Left As Long
　 Top As Long
　 Right As Long
　 Bottom As Long
End Type

'ここからはフォームの処理です
Private Sub Command1_Click()
　 Dim nRect As RECT

　　Call GetWindowRect(Form1.hWnd, nRect)

　　 MsgBox "左上のx座標は" & nRect.Left & vbCrLf & _
　　　　　　　"左上のy座標は" & nRect.Top & vbCrLf & _
　　　　　　　"右下のx座標は" & nRect.Right & vbCrLf & _
　　　　　　　"右下のy座標は" & nRect.Bottom
End Sub