Nascondi la barra delle applicazioni per le app a schermo intero
Questo articolo spiega come utilizzare in modo ottimale lo schermo del computer utilizzando una macro per nascondere la barra delle applicazioni mentre un'applicazione viene visualizzata in modalità a schermo intero. Questo VBA ti aiuterà a dedicare una scorciatoia da tastiera in modo che nascondere la tua barra delle applicazioni sia veloce e semplice.
Macro per nascondere la barra delle applicazioni per le app a schermo intero
È possibile utilizzare questa macro per programmare il computer in modo da nascondere automaticamente la barra delle applicazioni quando un'applicazione è in modalità schermo intero:'*************************'*** Lermite ******
'*** 06/03/2010 ******
'*************************
Opzione esplicita
Bascule pubblico As Boolean
Funzione Declare privata FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Funzione di dichiarazione privata GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Funzione pubblica dichiarazione SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long
Funzione Declare privata 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) As Long
Tipo privato POINTAPI
X come lungo
Y As Long
Fine tipo
Tipo privato RECT
Lasciato come lungo
Top As Long
Giusto quanto a lungo
Inferiore come lungo
Fine tipo
Tipo pubblico AppBarData
cbSize As Long
hwnd quanto a lungo
uCallbackMessage As Long
uEdge As Long
rc Come RECT
lParam As Long
Fine tipo
Tipo privato WINDOWPLACEMENT
Lunghezza come lungo
BANDIERE come a lungo
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
Fine tipo
WinPlacement pubblico come WINDOWPLACEMENT
Const pubblico ABS_ALWAYSONTOP = & H2
Public Const ABS_AUTOHIDE = & H1
Public Const ABM_GETSTATE = & H4
Const pubblico ABM_SETSTATE = & HA
'Come ho detto alla sbarra di tâches
Funzione privata GetHwndBT () Quanto tempo
GetHwndBT = FindWindow ("shell_traywnd", "")
Fine Funzione
Funzione privata BarData () As Integer
Dim BarDt As AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Fine Funzione
'Retourne true si la barre des tâches est rétractible
Funzione pubblica BarMode () As Boolean
Dim ret As Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP Oppure ret = ABS_AUTOHIDE)
Fine Funzione
'Applique les proprieté à la barre des taches
'Modalità = 0: voir la barre des tâche
'Modalità = 1: cache la barre des tâches
Public Sub ChangeTaskBar (Mode As Long)
Dim BarDt As AppBarData
Dim ret As Long
'Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Modalità
'Applique
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Se ret = 0 Allora
Chiama MsgBox ("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
Finisci se
End Sub
Sub MaximizeAppli ()
Statico a come booleano
Static Changer As Integer
Se Changer = 0 Allora
'Voir si la barre des tâches est rétractible
Changer = IIf (BarMode, 1, 2)
Finisci se
a = Non a
Se Changer = 2 Allora
'la barre des tâches n'est pas rétractible, ont la retracte / Ressort
Chiama ChangeTaskBar (Abs (a))
Finisci se
'L'appli sera toujours maximizée plein écran.
Application.WindowState = IIf (a, xlMaximized, xlNormal)
End Sub
Usi pratici per la macro della barra delle applicazioni
Il primo utilizzo di questa macro è come una scorciatoia da tastiera . Per impostarlo, vai al tuo nastro e clicca su Macro . Seleziona la macro MaximizeAppli . Quindi, fare clic su Opzione e assegnare una lettera al collegamento.Il secondo utilizzo di questa macro è come un pulsante di forma . Puoi farlo assegnando la funzione MaximizeAppli a un pulsante.
Questa macro può anche essere utilizzata con un pulsante in un Form utente . Per fare questo, il modulo utente deve essere nominato qualcosa contenente Show0 nel codice del pulsante:
Private Sub CommandButton1_Click ()MaximizeAppli
Dim T, L
'Exemple pour positionner le bouton aux environs des boutons système de l'appli.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Application.Top + 2
Adattatore Me.Move L, T, 40, 14 '
End Sub
Puoi scaricare una demo demo di questa macro qui.