VB Tips Vol.55
 タスクバーの位置とサイズを取得する

Private Declare Function SHAppBarMessage Lib "Shell32.dll" _
(ByVal dwMessage As Long, pData As APPBARDATA) As Long

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

Private Type APPBARDATA
    cbSize As Long
    hwnd As Long
    uCallbackMessage As Long
    uEdge As Long
    rc As RECT
    lParam As Long
End Type

Private Const ABM_GETTASKBARPOS = &H5

Private Sub Command1_Click()
Dim AppBData As APPBARDATA
Dim Ret As Long

'タスクバーの位置とサイズを取得します
Ret = SHAppBarMessage(ABM_GETTASKBARPOS, AppBData)

Label1.Caption = "縦位置(Top)： " & AppBData.rc.Top & vbCrLf & _
"横位置(Left)： " & AppBData.rc.Left & vbCrLf & _
"幅(Width)： " & AppBData.rc.Right - AppBData.rc.Left & vbCrLf & _
"高さ(Height)： " & AppBData.rc.Bottom - AppBData.rc.Top

End Sub

サンプルプログラムのダウンロード(5.23KB)
※このページの内容とサンプルプログラムのコードは多少異なる場合があります。

戻る ホーム