Skryť panel úloh pre celú obrazovku aplikácie
Tento článok vám vysvetlí, ako optimálne využiť obrazovku počítača pomocou makra na skrytie panela úloh počas zobrazenia aplikácie v režime celej obrazovky. Tento VBA vám pomôže venovať klávesovú skratku tak, že skryť panel úloh je rýchly a jednoduchý.
Makro skryť panel pre celú obrazovku Apps
Toto makro môžete použiť na naprogramovanie počítača na automatické skrytie panela úloh, keď je aplikácia v režime celej obrazovky:, *************************'*** Lermite ******
„*** 06/03/2010 ******
, *************************
Možnosť Explicit
Verejnosť Bascule ako booleovský
Funkcia Private Declare FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName ako reťazec, ByVal lpWindowName ako reťazec) As Long
Funkcia privátneho deklarácie GetWindowPlacement Lib "user32" (ByVal hwnd tak dlho, lpwndpl ako WINDOWPLACEMENT) Ako dlho
Funkcia verejného deklarácie SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage ako dlho, pData ako AppBarData) Ako dlho
Funkcia privátneho deklarácie SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter ako dlho, ByVal X As _
Dlhé, ByVal Y ako dlhé, ByVal cx ako dlhé, ByVal cy ako dlhé, ByVal wFlags tak dlho, ako dlho
Súkromný typ POINTAPI
X Ako dlho
Y Ako dlhé
Typ ukončenia
Súkromný typ RECT
Vľavo ako dlho
Top Ako dlho
Ako dlho
Spodná ako dlhá
Typ ukončenia
Verejný typ AppBarData
cbSize As Long
hwnd Ako dlho
uCallbackMessage ako dlhá
uEdge As Long
rc Ako RECT
Paar As Long
Typ ukončenia
Súkromný typ WINDOWPLACEMENT
Dĺžka ako dlhá
FLAGS Ako dlho
showCmd Ako dlho
ptMinPosition Ako POINTAPI
ptMaxPosition Ako POINTAPI
rcNormalPosition Ako RECT
Typ ukončenia
Verejné WinPlacement ako WINDOWPLACEMENT
Verejnosť Const ABS_ALWAYSONTOP = & H2
Verejné Const ABS_AUTOHIDE = & H1
Public Const ABM_GETSTATE = & H4
Public Const ABM_SETSTATE = & HA
'Trouver le hwnd de la barre des tâches
Súkromná funkcia GetHwndBT () Ako dlhá
GetHwndBT = FindWindow ("shell_traywnd", "")
Funkcia konca
Súkromná funkcia BarData () Ako celé číslo
Dim BarDt Ako AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Funkcia konca
'Retourne true a la barre des tâches est rétractible
Verejná funkcia BarMode () Ako Boolean
Dim ret In Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP alebo ret = ABS_AUTOHIDE)
Funkcia konca
„Žiadosti o zamestnanie
'Mode = 0: voir la barre des tâche
'Mode = 1: cache la barre des tâches
Public Sub ChangeTaskBar (režim ako dlhý)
Dim BarDt Ako AppBarData
Dim ret As Long
'Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Režim
, Nášivka
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Ak ret = 0 Potom
Zavolajte MsgBox ("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
Koniec Ak
End Sub
Sub MaximizeAppli ()
Statický a ako booleovský
Statický menič ako celé číslo
Ak Changer = 0 Potom
„Voir si la barre des tâches est rétractible
Changer = IIf (BarMode, 1, 2)
Koniec Ak
a = Nie
Ak menič = 2 Potom
'v barre des tâches n'est pas rétractible, ont la retracte / Ressort
Call ChangeTaskBar (Abs (a))
Koniec Ak
'L'appli sera toujours maximizée plein écran.
Application.WindowState = IIf (a, xlMaximalizované, xlNormálne)
End Sub
Praktické použitie pre Macro na paneli úloh
Prvé použitie tohto makra je ako klávesová skratka . Ak chcete nastaviť, prejdite na pásku a kliknite na tlačidlo Makro . Vyberte makro MaximizeAppli . Potom kliknite na možnosť a priradiť skratku skratke.Druhé použitie tohto makra je ako tlačidlo formulára . Môžete to urobiť priradením funkcie MaximizeAppli k tlačidlu.
Toto makro môže byť tiež použité s tlačidlom na UserForm . Aby ste to mohli urobiť, musí byť užívateľský formulár v kóde tlačidla pomenovaný tak, aby obsahoval Show0 :
Private Sub CommandButton1_Click ()MaximizeAppli
Dim T, L
Príklad príkladného umiestnenia bouton aux environments des boutons système de l'appli.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Aplikácia
Me.Move L, T, 40, 14 'à adaptér
End Sub
Tu si môžete stiahnuť demo demo tohto makra.