Ejemplos usando el Api de windows para Visual basic

76 - Ocultar y reestablecer el TaskBar de windows

Volver al Listado Api - Anterior - Siguiente

El siguiente código ejecuta el Api FindWindow y SetWindowPos para ocultar y reestablecer la barra de tareas de windows.

El Handle o HWND del TaskBar se obtiene pasandole a FindWindow el nombre de la clase llamada Shell_TrayWnd

Para ocultar el botón se utiliza SetWindowPos con la constante SWP_SHOWWINDOW en el último parámetro. Otra forma de hacer esto último es usando la función ShowWindow.

Controles en el formulario

Colocar un command1 y un Command2

Código fuente en el form

Option Explicit 'Declaración de las constantes para pasarle a SetWindowPos Private Const SWP_HIDEWINDOW As Long = &H80& Private Const SWP_SHOWWINDOW As Long = &H40& 'Api: busca el Handle del taskBar Private Declare Function FindWindow _ Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'SetWindowPos lo Oculta y lo reestablece 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 '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() 'Variable de retorno para el HWND Dim ret As Long 'Se le pasa el nombre de clase a FindWindow ret = FindWindow("Shell_TrayWnd", vbNullString) Call SetWindowPos(ret, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub Private Sub Command2_Click() 'Variable de retorno para el HWND Dim ret As Long 'Se le pasa el nombre de clase a FindWindow para obtener el handle ret = FindWindow("Shell_TrayWnd", vbNullString) Call SetWindowPos(ret, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub Private Sub Form_Load() Command1.Caption = " Ocultar barra de tarea " Command2.Caption = " Mostrar barra de tarea " End Sub

Enlaces relacionados

Buscar en Recursos vb