Ocultar la barra de tareas para aplicaciones de pantalla completa
Este artículo explicará cómo hacer un uso óptimo de la pantalla de su computadora usando una macro para ocultar su barra de tareas mientras se visualiza una aplicación en modo de pantalla completa. Este VBA te ayudará a dedicar un atajo de teclado para que esconder tu barra de tareas sea rápido y simple.
Macro para ocultar la barra de tareas para aplicaciones de pantalla completa
Puede usar esta macro para programar su computadora para ocultar automáticamente la barra de tareas cuando una aplicación está en modo de pantalla completa:'*************************'*** Lermite ******
'*** 06/03/2010 ******
'*************************
Opción explícita
La báscula pública como booleana
Función de declaración privada FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Hasta el final
Función de declaración privada GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As long
Función de declaración pública SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long
Función de declaración privada SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _
Long, ByVal Y Long, ByVal cx As Long, ByVal cy Long, ByVal wFlags As Long)
Tipo privado POINTAPI
X tan largo
Y tan largo
Tipo de finalización
Tipo privado RECT
Izquierda como larga
Top As Long
Derecho como largo
Parte inferior tan larga
Tipo de finalización
Public Type AppBarData
cbSize As Long
hwnd as long
uCallbackMessage como largo
uEdge as long
rc como RECT
lParam as long
Tipo de finalización
Tipo privado WINDOWPLACEMENT
Longitud como largo
BANDERAS tan largas
showCmd as long
ptMinPosición como POINTAPI
ptMaxPosition Como POINTAPI
rcNormalPosition As RECT
Tipo de finalización
WinPlacement público como WINDOWPLACEMENT
Public Const ABS_ALWAYSONTOP = & H2
Public Const ABS_AUTOHIDE = & H1
Public Const ABM_GETSTATE = & H4
Public Const ABM_SETSTATE = & HA
'Trouver le hwnd de la barre des tâches
Función privada GetHwndBT () tan larga
GetHwndBT = FindWindow ("shell_traywnd", "")
Función final
Función privada BarData () como entero
Dim BarDt As AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Función final
'Retourne true si la barre des tâches est rétractible
Función pública BarMode () como booleano
Dim ret As Integer
ret = BarData ()
Modo de barra = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP o ret = ABS_AUTOHIDE)
Función final
'Applique les propriétés à la barre des taches
'Modo = 0: voir la barre des tâche
'Mode = 1: cache la barre des tâches
Public Sub ChangeTaskBar (Modo como largo)
Dim BarDt As AppBarData
Dim ret tan largo
'Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Modo
'Apliques
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Si ret = 0 entonces
Llame a MsgBox ("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
Terminara si
End Sub
Sub MaximizeAppli ()
Static a As Boolean
Cambiador estático como entero
Si Cambiador = 0 Entonces
'Voir si la barre des tâches est rétractible
Cambiador = IIf (BarMode, 1, 2)
Terminara si
a = No es un
Si cambiador = 2 entonces
'la barre des tâches n'est pass rétractible, ont la retracte / Ressort
Llame a ChangeTaskBar (Abs (a))
Terminara si
'L'appli sera toujours maximizée plein écran.
Application.WindowState = IIf (a, xlMaximized, xlNormal)
End Sub
Usos prácticos para la macro de la barra de tareas
El primer uso de esta macro es como un atajo de teclado . Para configurar esto, vaya a su cinta y haga clic en Macro . Seleccione la macro MaximizeAppli . Luego, haga clic en Opción y asigne una letra al acceso directo.El segundo uso de esta macro es como un botón de formulario . Puede hacer esto asignando la función MaximizeAppli a un botón.
Esta macro también se puede usar con un botón en un formulario de usuario . Para hacer esto, el formulario de usuario debe llamarse algo que contenga Show0 en el código del botón:
Privado Sub CommandButton1_Click ()MaximizeAppli
Dim T, L
'Ejemplo de posicionamiento para el camino de los alrededores del sistema de aplicaciones.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Aplicación.Top + 2
Me.Move L, T, 40, 14 'à adaptador
End Sub
Puede descargar una demostración del libro de demostración de esta macro aquí.