Peida oma tegumiriba täisekraani rakendustele

Selles artiklis selgitatakse, kuidas oma arvuti ekraani optimaalseks kasutamiseks kasutada, et varjata oma tegumiriba, kui rakendust vaadatakse täisekraanirežiimis. See VBA aitab teil klaviatuuri otsetee paigutada, et tegumiriba peitmine oleks kiire ja lihtne.

Makro, et peita täisekraani rakenduste tegumiriba

Selle makro abil saate oma arvuti programmeerida, et oma tegumiriba automaatselt peita, kui rakendus on täisekraanirežiimis:

 '*************************
*** *** Lermite ******
*** *** 03/03/2010 ******
'*************************
Valik Selgesõnaline
Avalik Bascule Boolean
Eraldi deklareerimise funktsioon FindWindow Lib "user32" Alias ​​"FindWindowA" (ByVal lpClassName kui string, ByVal lpWindowName kui string) kui pikk
Eraldi deklareerige funktsioon GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl nagu WINDOWPLACEMENT) nii kaua
Avalik deklareerimise funktsioon SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage nii kaua, pData kui AppBarData) kui pikk
Eraldi deklareeri funktsioon SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _
Pikk, ByVal Y nii kaua, ByVal cx kui pikk, ByVal cy nii kaua, ByVal wFlags nii kaua) kui pikk
Privaatne tüüp POINTAPI
X Pikkus
Y nii kaua
Lõpp-tüüp
Eratüüp RECT
Vasakul nii kaua
Üles nii kaua
Õigus nii kaua
Pikkus
Lõpp-tüüp
Avalik tüüp AppBarData
cbSize nii kaua
hwnd As Long
uCallbackMessage Long
uEdge As Long
rc Nagu RECT
lParam nii kaua
Lõpp-tüüp
Privaatne tüüp WINDOWPLACEMENT
Pikkus pikk
PILDID nii kaua
showCmd nii kaua
ptMinPosition Nagu POINTAPI
ptMaxPosition Nagu POINTAPI
rcNormalPosition Nagu RECT
Lõpp-tüüp
Avalik WinPlacement WINDOWPLACEMENT
Avalik Const ABS_ALWAYSONTOP = & H2
Avalik Const ABS_AUTOHIDE = & H1
Avalik Const ABM_GETSTATE = & H4
Avalik Const ABM_SETSTATE = & HA
"Trouver le hwnd de la barre des tâches"
Erafunktsioon GetHwndBT () nii kaua
GetHwndBT = FindWindow ("shell_traywnd", "")
Lõppfunktsioon
Erafunktsiooni barData () kui terviklik
Dim BarDt kui AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Lõppfunktsioon
„Tagasipöördumiskohad ja -korraldused
Avaliku funktsiooni BarMode () kui boolean
Dim ret As Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP Või ret = ABS_AUTOHIDE)
Lõppfunktsioon
„Applique les propriétés à la barre des taches
'Režiim = 0: voir la barre des tâche
'Režiim = 1: vahemälu la barre des tâches
Avalik alamuutuse tegumiriba (režiim nii kaua)
Dim BarDt kui AppBarData
Dim ret As Long
Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Režiim
Applique
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Kui ret = 0 Seejärel
Helista MsgBox'ile ("seeur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
Lõpeta kui
Lõpeta alam
Sub MaximizeAppli ()
Staatiline a kui Boolean
Staatiline muutuja kui terviklik
Kui Changer = 0 Seejärel
„Vaba aeg, kui see on võimalik
Changer = IIf (BarMode, 1, 2)
Lõpeta kui
a = Ei a
Kui Changer = 2 Seejärel
"la barre des tâches n'est pas rétractible, ont la retracte / Ressort
Call ChangeTaskBar (Abs (a))
Lõpeta kui
'L'appli sera toujours maxizée plein écran.
Rakendus.WindowState = IIf (a, xlMaximized, xlNormal)
Lõpeta alam 

Tegumiriba makro praktiline kasutamine

Selle makro esmakordne kasutamine on kiirklahv . Selle seadistamiseks minge oma lindile ja klõpsa Macro . Valige makro MaximizeAppli . Seejärel klikkige valikul Option ja määrake otsetee tähele.

Selle makro teine ​​kasutamine on vormi nupp . Seda saab teha funktsiooni MaximizeAppli määramiseks nupule.

Seda makrot võib kasutada ka nupuga UserFormis . Selleks tuleb kasutajaformaadil nimetada nupu koodis midagi, mis sisaldab Show0 :

 Privaatne alamkomentButton1_Click ()
MaximizeAppli
Dim T, L
„Sisseregistreerimiskeskused ja -korraldused”.
L = Application.Left + Rakendus.Laius - UFbouton.Width - 60
T = taotlus.Top + 2
Me.Move L, T, 40, 14 'à adapter
Lõpeta alam 

Siin saate alla laadida selle makro demo töövihiku demo.