Сообщение ABM_GETSTATE

Const ABM_GETSTATE = &H4

Сообщение ABM_GETSTATE получает состояние Панели задач (Всегда поверх окон, Автоматически убирать с экрана)

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

Возвращается 0, если не показывается поверх окон и не убирается автоматически. Возвращается ABS_ALWAYSONTOP, если всегда поверх всех окон. Возвращается ABS_AUTOHIDE, если автоматически убирается с экрана. Возвращается ABS_BOTH, если комбинация двух предыдущих состояний

Параметры

pData

Вы должны указать параметры cbSize структуры APPBARDATA. Остальные поля структуры игнорируются

Пример

' Получим состояние Панели задач
Const ABS_ALWAYSONTOP = &H2
Const ABS_AUTOHIDE = &H1
Const ABS_BOTH = &H3

Dim IsState As Integer

IsState = BarExists()

If IsState = 0 Then
      Me.Print "Панель задач не убирается автоматически и не находится поверх всех окон"
End If

If IsState = ABS_ALWAYSONTOP Then
      Me.Print "Включена опция Показывать всегда поверх окон"
End If

If IsState = ABS_AUTOHIDE Then
      Me.Print "Включена опция Автоматически убирать с экрана"
End If

If IsState = ABS_BOTH Then
      Me.Print "Включена опция Автоматически убирать с экрана и Показывать всегда поверх окон"
End If

' Добавим функцию для удобства
Public Function BarExists() As Integer
    Dim Bardata As APPBARDATA
    BarExists = SHAppBarMessage(ABM_GETSTATE, Bardata)
End Function

Категория