Sección de códigos , trucos y ejemplos para visual basic

33 - Ocultar o eliminar el Botón de Inicio de Windows

Ejemplo para ocultar y reestablecer el botón de Inicio de la barra de tareas de windows

En el código fuente hay dos CommandButton. El Command1 visualiza el botón, y el command2 lo Oculta.

vista del botón de inicio de windows oculto

Para poder ocultar y mostrar una ventana en windows, se utiliza el api ShowWindow. La constante SW_HIDE indica que lo oculta, y la constante SW_NORMAL lo reestablece.

' Oculta la ventana de windows
Call ShowWindow("Hwnd de ventana", SW_HIDE)

Pero antes, para poder referirnos al botón de la barra de tareas de windows, se debe obtener el HWND del mismo, utilizando las funciones FindWindow y FindWindowEx. La siguientes lineas de código recupera dicho handle.

HWND_TASKBAR = FindWindow("Shell_TrayWnd", vbNullString)
HWND_BOTON = FindWindowEx(HWND_TASKBAR, ByVal 0&, "BUTTON", vbNullString)

Ejemplo

Colocar un Command1 que muestra el Botón
y el Command2 lo oculta o lo elimina

Código fuente en un formulario:

'Constantes Const WS_CHILD = &H40000000 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Const SW_HIDE = 0 Const SW_NORMAL = 1 'Funciones Api 'Busca el Handle o Hwnd del botón de inicio de windows 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 ' Recupera el Handle o Hwnd de la barra de tareas de windows Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Oculta y visualiza el botón Private Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long 'Variables para los HWND Dim HWND_TASKBAR As Long Dim HWND_BOTON As Long 'Boton que reestablece el menu inicio '----------------------------------------- Private Sub Command1_Click() 'Mostramos el botòn con el Api showWindow Call ShowWindow(HWND_BOTON, SW_NORMAL) End Sub 'Boton que oculta el menu inicio '----------------------------------------- Private Sub Command2_Click() HWND_TASKBAR = FindWindow("Shell_TrayWnd", vbNullString) HWND_BOTON = FindWindowEx(HWND_TASKBAR, ByVal 0&, "BUTTON", vbNullString) Call ShowWindow(HWND_BOTON, SW_HIDE) End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb