Ejemplos usando el Api de windows para Visual basic

82 - Deshabilitar y habilitar la barra de tareas

Volver al Listado Api - Anterior - Siguiente

Para habilitar o deshabilitar una ventana en windows se usa el Api EnableWindow que lleva como parámetro el HWND de la ventana.

En este caso, para obtener el Handle del TaskBar se utiliza la función FindWindow pasandole el nombre de la clase o ClassName llamado Shell_TrayWnd

Controles

Colocar un Command1 y un Command2

Código fuente en un formulario:

Option Explicit 'Función FindWindow para obtener el HWND del Taskbar Private Declare Function FindWindow Lib _ "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Función EnableWindow para deshabilitar y habilitar una ventana Private Declare Function EnableWindow Lib _ "user32" (ByVal hwnd As Long, _ ByVal fEnable As Long) As Long 'El 0 deshabilita la barra y el 1 la restaura Private Sub TaskBar(ByVal Index As Long) Dim Accion As Long, ret As Long Select Case Index Case 0: Accion = 0 Case 1: Accion = 1 End Select 'Shell_TrayWnd es el nombre de clase ret = FindWindow("Shell_TrayWnd", vbNullString) 'Le pasamos el HWMD del TaskBar y el valor para activar o deshabilitar EnableWindow ret, Accion End Sub 'Deshabilita Private Sub Command1_Click() TaskBar 0 End Sub 'Activa Private Sub Command2_Click() TaskBar 1 End Sub Private Sub Form_Load() Command1.Caption = " Deshabilitar " Command2.Caption = " Habilitar " End Sub 'Habilita Private Sub Form_Unload(Cancel As Integer) TaskBar 1 End Sub

Relacionados a TaskBar y barra de tareas

Buscar en Recursos vb