Скрыть панель задач для полноэкранных приложений

В этой статье объясняется, как оптимально использовать экран вашего компьютера с помощью макроса, чтобы скрыть панель задач во время просмотра приложения в полноэкранном режиме. Этот VBA поможет вам выделить сочетание клавиш, чтобы скрыть панель задач быстро и просто.

Макрос для скрытия панели задач для полноэкранных приложений

Вы можете использовать этот макрос для программирования вашего компьютера на автоматическое скрытие панели задач, когда приложение находится в полноэкранном режиме:

 «*************************

*** Лермит ******

*** 06.03.2010 ******

«*************************

Вариант Явный

Public Bascule As Boolean

Закрытое Объявление функции FindWindow Lib "user32" Псевдоним "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Закрытая функция объявления GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long

Общедоступная функция объявления SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long

Закрытое Объявление функции SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _

Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Как Long

Частный тип POINTAPI

X как долго

Y как долго

Тип конца

Частный тип RECT

Осталось как долго

Топ как долго

Прямо как долго

Низ как долго

Тип конца

Открытый тип AppBarData

cbSize As Long

как долго

uCallbackMessage As Long

UEdge As Long

RC As RECT

lParam As Long

Тип конца

Закрытый тип WINDOWPLACEMENT

Длина как долго

Флаги как долго

showCmd As Long

ptMinPosition As POINTAPI

ptMaxPosition как POINTAPI

rcNormalPosition As RECT

Тип конца

Публичная WinPlacement As WINDOWPLACEMENT

Public Const ABS_ALWAYSONTOP = & H2

Public Const ABS_AUTOHIDE = & H1

Public Const ABM_GETSTATE = & H4

Public Const ABM_SETSTATE = & HA

'Trouver le hwnd de la barre des tach'

Частная функция GetHwndBT () As Long

GetHwndBT = FindWindow ("shell_traywnd", "")

Конечная функция

Частная функция BarData () как целое число

Dim BarDt As AppBarData

BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)

Конечная функция

«Вернись в прошлое»

Открытая функция BarMode () As Boolean

Dim Ret As Integer

ret = BarData ()

BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP или ret = ABS_AUTOHIDE)

Конечная функция

'Applique les propriétés à la barre des taches

'Mode = 0: вот так!

'Mode = 1: кеш-память

Public Sub ChangeTaskBar (режим как долго)

Dim BarDt As AppBarData

Дим Рет Ас Лонг

Entrée des paramètres

BarDt.cbSize = Len (BarDt)

BarDt.hwnd = GetHwndBT

BarDt.lParam = Mode

«Аппликация

ret = SHAppBarMessage (ABM_SETSTATE, BarDt)

Если ret = 0, то

Вызовите MsgBox («Ошибка в сообщении SHAppBarMessage», vbCritical + vbOKOnly, «Erreur»)

End If

End Sub

Sub MaximizeAppli ()

Статический как логический

Статический чейнджер как целое число

Если Changer = 0, то

'Voir si la barre des tâches est retracctible

Changer = IIf (BarMode, 1, 2)

End If

а = не

Если Changer = 2, то

'La Barre Des Tâches N' Nest '' '' '' '' ''

Call ChangeTaskBar (Abs (a))

End If

'L'appli sera toujours maximizée plein écran.

Application.WindowState = IIf (a, xlMaximized, xlNormal)

End Sub

Практическое использование для макроса панели задач

Первое использование этого макроса в качестве сочетания клавиш . Чтобы установить это, перейдите на ленту и нажмите Макрос . Выберите макрос MaximizeAppli . Затем нажмите Option и назначьте букву ярлыку.

Второе использование этого макроса в качестве кнопки формы . Вы можете сделать это, назначив функцию MaximizeAppli для кнопки.

Этот макрос также может использоваться с кнопкой в ​​пользовательской форме . Для этого пользовательская форма должна иметь имя с именем Show0 в коде кнопки:

 Частный Sub CommandButton1_Click ()

MaximizeAppli

Дим Т, Л

«Пример работы в качестве дополнительной информации в рамках системы.

L = Application.Left + Application.Width - UFbouton.Width - 60

T = Application.Top + 2

Me.Move L, T, 40, 14 'адаптер

End Sub

Вы можете скачать демонстрационную книгу этого макроса здесь.

Предыдущая статья Следующая статья

Лучшие советы