Сообщение ABM_GETTASKBARPOS

Const ABM_GETTASKBARPOS = &H5

Сообщение ABM_GETTASKBARPOS получает ограничивающий прямоугольник Панели задач

Возвращаемое значение

Возвращается TRUE в успешном случае, иначе возвращается FALSE

Параметры

pData

Используется поле структуры APPBARDATA rc, содержащий экранные координаты этого прямоугольника. Вы должны указать параметры cbSize и hWnd. Остальные поля структуры игнорируются

Пример

Dim abd As APPBARDATA

' Получим позицию Панели задач
SHAppBarMessage ABM_GETTASKBARPOS, abd

' Получим координаты ограничивающего прямоугольника
Me.Print "Координаты Панели задач: (" & abd.rc.left & "," & abd.rc.top & ")" _
& "-" & abd.rc.right & "," & abd.rc.bottom & ")"

Категория