Ejemplos usando el Api de windows para Visual basic

214 - Ocultar reloj del systray de windows

Ejemplo en visual basic para poder ocultar y restaurar el reloj del systray de windows y la barra de herramientas de inicio rápido

vista del formulario de ejemplo con los commandbutton que ocultan el reloj de windows

El ejemplo utiliza las funciones del api FindWindow y FindWindowEx para obtener los hwnd o handle de la barra de tareas, el área de notificación y finalmente el Hwnd del reloj

Luego con el handle se usa la función del api ShowWindow para mostrar u ocultar el mismo

Para el ejemplo colocar en un formulario dos controles CommandButton

Nota: en este otro enlace hay un ejemplo para ocultar el taskbar y el área de notificación, y también en el final de la página un ejemplo para poder ocultar la barra de herramientas de Inicio rápido de windows

Código fuente a colocar en el formulario

Option Explicit ' botón que oculta el reloj Private Sub Command1_Click() Ocultar_Reloj_systray False End Sub ' botón que lo restaura Private Sub Command2_Click() Ocultar_Reloj_systray True End Sub Private Sub Form_Load() Command1.Caption = " Ocultar reloj" Command2.Caption = " Restaurar reloj" End Sub

Código fuente en un módulo de código bas

Option Explicit ' Declaraciones de funciones api ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Funciones para obtener el Hwnd del reloj del systray Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) _ As Long Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) _ As Long ' Función que oculta y muestra una ventana, en este caso el reloj de windows Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, _ ByVal nCmdShow As Long) _ As Long ' para redibujar y refrescar la ventana Private Declare Function 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 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' función ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Ocultar_Reloj_systray(Optional ByVal Accion As Boolean) As Boolean Dim Hwnd_Taskbar As Long Dim Hwnd_TrayNotifyWnd As Long Dim Hwnd_reloj As Long Dim ret As Long ' Hwnd del TaskBar Hwnd_Taskbar = FindWindow("Shell_TrayWnd", vbNullString) ' Hwnd del área de notificación o systray Hwnd_TrayNotifyWnd = FindWindowEx(Hwnd_Taskbar, 0, "TrayNotifyWnd", vbNullString) ' Hwnd del reloj Hwnd_reloj = FindWindowEx(Hwnd_TrayNotifyWnd, 0, "TrayClockWClass", vbNullString) ' Oculta o muestra el reloj dependiendo de la variable Accion con el api showwindow If Accion Then ret = ShowWindow(Hwnd_reloj, 1) ' muestra Else ret = ShowWindow(Hwnd_reloj, 0) ' oculta End If End Function

Ocultar la barra de inicio rápido

Para ocultar en este caso dicha barra de herramientas, es igual que en el ejemplo anterior, solo que hay que recuperar dos Hwnd diferentes

El primero es el del Taskbar igual que en el caso anterior ( clase Shell_TrayWnd ), el segundo es el de la barra o ventana que contiene la de inicio rápido y la de las ventanas o aplicaciones abiertas ( clase ReBarWindow32 ), por último con dicho handle se apunta a la clase ToolbarWindow32 que es la de inicio

Es decir la función quedaría de la siguiente forma :

Public Function Ocultar(Optional ByVal Accion As Boolean) As Boolean Dim Hwnd_Taskbar As Long Dim Hwnd_ReBarWindow32 As Long Dim hwnd_ToolbarWindow32 As Long Dim ret As Long Hwnd_Taskbar = FindWindow("Shell_TrayWnd", vbNullString) Hwnd_ReBarWindow32 = FindWindowEx(Hwnd_Taskbar, 0, "ReBarWindow32", vbNullString) hwnd_ToolbarWindow32 = FindWindowEx(Hwnd_ReBarWindow32, 0, "ToolbarWindow32", vbNullString) ' Oculta o muestra la barra de inicio rápido If Accion Then ret = ShowWindow(hwnd_ToolbarWindow32, 1) ' muestra Else ret = ShowWindow(hwnd_ToolbarWindow32, 0) ' oculta End If End Function

vista de la barra de inicio oculta

Buscar en Recursos vb