Ascundeți bara de activități pentru aplicațiile pe ecran complet

Acest articol vă va explica cum să utilizați în mod optim ecranul computerului utilizând o macrocomandă pentru a ascunde bara de activități în timp ce o aplicație este vizionată în modul ecran complet. Acest VBA vă va ajuta să dedicați o scurtătură de la tastatură, astfel încât ascunderea barei de sarcini să fie rapidă și simplă.

Macro pentru a ascunde bara de activități pentru aplicațiile pe ecran complet

Puteți utiliza această macrocomandă pentru a programa computerul să ascundă automat bara de activități atunci când o aplicație se află în modul ecran complet:

 „*************************
'*** Lermite ******
'*** 06/03/2010 ******
„*************************
Opțiune explicită
Bascule publice ca boolean
Funcția Private Declare FindWindow Lib "user32" Alias ​​"FindWindowA" (ByVal lpClassName ca șir, ByVal lpWindowName ca șir)
Funcția de declare privată GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl ca WINDOWPLACEMENT)
Funcția de declarare publică SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData ca AppBarData)
Funcția de declanșare privată SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _
Long, ByVal Y la fel de lung, ByVal cx la fel de lung, ByVal cy la fel de lung, ByVal wFlags la fel de lung)
Tip privat POINTAPI
X Atâta timp
Cât de lung
Tip final
Tip privat RECT
Stânga atât de lungă
Începutul este atât de lung
Atât de mult
Bottom As Long
Tip final
Public Tip AppBarData
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc Ca RECT
lParam atâta timp
Tip final
Tip privat WINDOWPLACEMENT
Durata lungă
FLAGS Atât de mult
showCmd cât de lung
ptMinPosition ca POINTAPI
ptMaxPosition Ca POINTAPI
rcNormalPosition ca RECT
Tip final
WinPlacement public ca placă de ferestre
Const. Publică ABS_ALWAYSONTOP = & H2
Public Const ABS_AUTOHIDE = & H1
Public Const ABM_GETSTATE = & H4
Const. Publică ABM_SETSTATE = & HA
'Trouver le hwnd de la barre des tâches
Funcția privată GetHwndBT () Atâta timp
GetHwndBT = FindWindow ("shell_traywnd", "")
Terminați funcția
Funcția Privată BarData () ca Integer
Dim BarDt ca AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Terminați funcția
"Retourne adevărat și la barre des tâches est rétractible
Funcția publică BarMode () ca boolean
Dimit ca Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP sau ret = ABS_AUTOHIDE)
Terminați funcția
"Aplicarea proprietăților la bariere
Modul = 0: voir la barre des tâche
Modul = 1: cache la barre des tâches
Baza de schimbare a submeniului public (modul de lungă durată)
Dim BarDt ca AppBarData
Dimit la fel de mult
"Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Mod
„appliqué
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Dacă ret = 0 Apoi
Apelați MsgBox ("erreur los de appel de SHAppBarMessage", vbCritical + vBOKOnly, "Erreur")
Terminați Dacă
End Sub
Sub MaximizeAppli ()
Static a În calitate de Boolean
Modificatorul static ca intreg
Dacă Changer = 0 Apoi
Voir și la barre des tâches sunt rétractible
Changer = IIf (BarMode, 1, 2)
Terminați Dacă
a = Nu a
Dacă Changer = 2 Apoi
'la barre des tâches n'est pas rétractible, ont la retracte / Ressort
Apelați ChangeTaskBar (Abs (a))
Terminați Dacă
"Aplica maxime de maximizare a plecării.
Application.WindowState = IIf (a, xlMaximizat, xlNormal)
End Sub 

Aplicații practice pentru macro-ul Taskbar

Prima utilizare a acestei macrocomenzi este ca o comandă rapidă de la tastatură . Pentru a seta acest lucru, mergeți la panglică și faceți clic pe Macro . Selectați macrocomanda MaximizeAppli . Apoi, dați clic pe Opțiune și atribuiți o scrisoare comenzii rapide.

A doua utilizare a acestei macrocomenzi este ca un buton de formă . Puteți face acest lucru prin atribuirea funcției MaximizeAppli unui buton.

Această macrocomandă poate fi, de asemenea, utilizată cu un buton pe un UserForm . Pentru a face acest lucru, formularul de utilizator trebuie să fie denumit ceva care conține Show0 în codul butonului:

 Private Sub CommandButton1_Click ()
MaximizeAppli
Dim T, L
"Exemplul pentru poziționarea sistemului de protecție a mediului înconjurător.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Aplicație.Top + 2
Me.Move L, T, 40, 14 'adaptor
End Sub 

Puteți descărca demo-ul de demo de lucru al acestei macrocomenzi aici.