Ejemplos usando el Api de windows para Visual basic

161 - Ocultar el área de notificación y los íconos

Ejemplo para poder ocultar y mostrar el área de notificación , los íconos y barra de tareas de windows usando las Apis FindWindowEx, FindWindow y ShowWindow

Con alguna ayudita de este ejemplo del amigo Leandro Ascierto > Barra de tareas en visual basic, hice este ejemplo que muestra como hacer lo dicho con el uso del Api

Para recuperar los handles de las " ventanas " a ocultar y mostrar, se utilizan el Api FindWindow FindWindowEx.

A la segunda función, se le debe pasar en el tercer parámetro el nombre de la clase de ventana.

Para el área de notificación es TrayNotifyWnd. Para los íconos Syspager. Para el Taskbar el nombre de la clase es Shell_TrayWnd

En el código fuente, hay una rutina de ajuste para ocultar y mostrar cada ventana.

Por ejemplo para hacer visible y ocultar el área de notificación :

Call Show_Hide_Tray(AREA_DE_NOTIFICACION, OCULTAR)

Para hacer visible y ocultar los íconos :

Call Show_Hide_Tray(ICONOS_SYSTRAY, OCULTAR)

vista del formulario de ejmeplo con los íconos invisibles

Controles

Colocar en un formulario tres controles CheckBox

Código fuente en el formulario

Option Explicit 'Busca el handle de una ventana hija a partir _ de su Hwnd Parent y el nombre de clase 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 'Busca el HWND de la ventana, en este caso la de la barra de tareas de windows _ ( mediante el nombre de clase Shell_TrayWnd ) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Oculta y muestra una ventana a partir de su HWND Private Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long ' Constantes para ShowWindow Const SW_HIDE = 0 Const SW_NORMAL = 1 'Enumeraciones Enum E_Tray TAS_KBAR = 0 AREA_DE_NOTIFICACION = 1 ICONOS_SYSTRAY = 2 End Enum Enum E_Accion MOSTRAR = 0 OCULTAR = 1 End Enum 'Sub para Ocultar y mostrar '*************************************************************** Public Sub Show_Hide_Tray(Win_Tray As E_Tray, Accion As E_Accion) Dim HWND_TaskBar As Long Dim HWND_TrayNotify As Long Dim HWND_Iconos As Long Dim Ret As Long 'Retorna los HWND para cada uno HWND_TaskBar = FindWindow("Shell_TrayWnd", vbNullString) HWND_TrayNotify = FindWindowEx(HWND_TaskBar, 0, "TrayNotifyWnd", vbNullString) HWND_Iconos = FindWindowEx(HWND_TrayNotify, 0, "Syspager", vbNullString) ' Que ocultar Select Case Win_Tray Case 0 Ret = HWND_TaskBar Case 1 Ret = HWND_TrayNotify Case 2 Ret = HWND_Iconos End Select 'Accion If Accion = MOSTRAR Then Call ShowWindow(Ret, SW_NORMAL) ' Visible Else Call ShowWindow(Ret, SW_HIDE) 'Ocultar End If End Sub 'Para la Barra de tareas '*************************************************************** Private Sub Check1_Click() If Check1.Value = 0 Then Call Show_Hide_Tray(TAS_KBAR, MOSTRAR) Else Call Show_Hide_Tray(TAS_KBAR, OCULTAR) End If End Sub 'Para el Area de notificación '*************************************************************** Private Sub Check2_Click() If Check2.Value = 0 Then Call Show_Hide_Tray(AREA_DE_NOTIFICACION, MOSTRAR) Else Call Show_Hide_Tray(AREA_DE_NOTIFICACION, OCULTAR) End If End Sub 'Iconos del systry '*************************************************************** Private Sub Check3_Click() If Check3.Value = 0 Then Call Show_Hide_Tray(ICONOS_SYSTRAY, MOSTRAR) Else Call Show_Hide_Tray(ICONOS_SYSTRAY, OCULTAR) End If End Sub Private Sub Form_Load() Check1.Caption = " Ocultar Barra de tareas " Check2.Caption = " Ocultar Área de notificación " Check3.Caption = " Ocultar Iconos del systray " End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb