Скрыть панель задач для полноэкранных приложений
В этой статье объясняется, как оптимально использовать экран вашего компьютера с помощью макроса, чтобы скрыть панель задач во время просмотра приложения в полноэкранном режиме. Этот 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
Вы можете скачать демонстрационную книгу этого макроса здесь.