ホーム > カテゴリ > Visual Basic >

ウインドウの外側のサイズを取得する

ウインドウの外側のサイズを取得するサンプルです。

サンプルの実行画面

ソースコード

[GetWindowRect.frm]

'ウインドウの外側のサイズを取得するAPI
  
  'hWnd:ウインドウのハンドル
  'lpRect:RECT構造体

  '値はスクリーン座標なので注意
Private Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, lpRect As RECT) As Long

Private 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

ソースコード一式のダウンロード

vbapi_getwindowrect.zip 815 バイト (815 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月06日
記事NO:00421