Приховати панель завдань для програм на весь екран
У цій статті пояснюється, як оптимально використовувати екран комп'ютера за допомогою макросу, щоб приховати панель завдань під час перегляду програми в повноекранному режимі. Це VBA допоможе вам присвятити клавіатурне скорочення, щоб приховування панелі завдань було швидким і простим.
Макрос, щоб приховати панель завдань для програм на весь екран
Цей макрос можна використовувати для програмування комп'ютера для автоматичного приховування панелі завдань, коли програма знаходиться в повноекранному режимі:'**************************** *** Lermite ******
'*** 06/03/2010 ******
'*************************
Опція Явна
Загальнодоступне
Функція приватного оголошення FindWindow Lib "user32" Псевдонім "FindWindowA" (ByVal lpClassName як рядок, ByVal lpWindowName як рядок)
Функція приватного оголошення GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT)
Функція публікації SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage як довго, pData як AppBarData)
Функція приватного оголошення SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _
Довге, ByVal Y як довге, ByVal cx як довге, ByVal cy як довге, ByVal wFlags як довго) як довго
Приватний тип POINTAPI
X як довго
Y Довгий
Тип кінця
Приватний тип RECT
Залишилося довго
Топ як довгий
Право як довго
Знизу так довго
Тип кінця
Загальнодоступний тип AppBarData
cbSize As Long
hwnd Як довго
uCallbackMessage As Long
uEdge як довгий
rc As RECT
lParam As Long
Тип кінця
Приватний тип WINDOWPLACEMENT
Довжина довжини
ФЛАГИ Як довго
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition Як POINTAPI
rcNormalPosition As RECT
Тип кінця
Публічне WinPlacement як WINDOWPLACEMENT
Публічна система ABS_ALWAYSONTOP = & H2
Загальнодоступні конституції ABS_AUTOHIDE = & H1
Загальнодоступний конст ABM_GETSTATE = & H4
Загальнодоступні конституції ABM_SETSTATE = & HA
- Виправляйте в барель
Приватна функція GetHwndBT () як довга
GetHwndBT = FindWindow ("shell_traywnd", "")
Функція End
Приватна функція BarData () As Integer
Dim BarDt As AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Функція End
«Ретронне справжнє, але ви можете відвідати бар
Спільна функція BarMode () Як булева
Dim ret As Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP Або ret = ABS_AUTOHIDE)
Функція End
Applique les propriétés à la barre des taches
'Режим = 0: за вибором
'Режим = 1: кеш-ла-барре де-тьх
Публічна піднесуча
Dim BarDt As AppBarData
Dim ret As Long
'Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Режим
- Аплікація
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Якщо ret = 0 Тоді
Виклик MsgBox ("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
End If
End Sub
Sub MaximizeAppli ()
Статичний a Булевий
Статичні зміни як ціле
Якщо Changer = 0 Тоді
- Ви можете проїхати через бар
Changer = IIf (Бармод, 1, 2)
End If
a = Не a
Якщо Changer = 2 Потім
'la barre des tâches n'est pas rétractible, ont la retacte / Ressort
Виклик ChangeTaskBar (Abs (a))
End If
'L'appli sera toujours maximizee plein écran.
Application.WindowState = IIf (a, xlMaximized, xlNormal)
End Sub
Практичне використання макросу панелі завдань
Перше використання цього макросу - це комбінація клавіш . Щоб встановити це, перейдіть на стрічку та натисніть на макрос . Виберіть макрос MaximizeAppli . Потім натисніть кнопку Option і призначте літеру ярлик.Друге використання цього макросу є кнопкою форми . Це можна зробити, призначивши функцію MaximizeAppli кнопці.
Цей макрос також може використовуватися за допомогою кнопки на групі користувача . Для цього користувальницька форма повинна бути названа щось, що містить Show0 у коді кнопки:
Приватна підпрограма CommandButton1_Click ()MaximizeAppli
Dim T, L
- Екземпляр для позиціонування в оточенні навколишнього середовища.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Application.Top + 2
Me.Move L, T, 40, 14 'адаптер
End Sub
Тут можна завантажити демо-демонстрацію робочої книги цього макросу.