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

49 - Ocultar los iconos y deshabilitar el escritorio de Windows

Contenido

Ocultar íconos
Deshabilitar el escritorio
Enlaces relacionados

Ocultar iconos

Ejemplo que muestra como ocultar los íconos del escritorio utilizando el api showWindow y FindWindowEx

La función del Api FindWindowEx en este caso devuelve el Hwnd del Desktop (escritorio ). Luego teniendo el Handle, se usa la función showWindow para mostrar u ocultar los íconos del escritorio, pasándole en el segundo parámetro las constantes SW_SHOW y SW_HIDE respectivamente.

Para el ejemplo colocar 2 CommandButton. El command1 los oculta el Command2 los muestra.

Código fuente en el formulario

'Función Api FindWindowEx ( Busca el HWND del escritorio 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 'Función Api ShowWindow ( muestra y oculta los íconos ) Private Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long 'Constantes para ocultar y mostrar los iconos del escritorio Const SW_SHOW = 5 Const SW_HIDE = 0 'Ocultar los iconos Private Sub Command1_Click() Dim HWND_Escritorio As Long On Error Resume Next 'Obtenemos el Hwnd del escritorio pasandole el nombre de la _ clase de ventana, en este caso Progman es el escritorio HWND_Escritorio = FindWindowEx(0&, 0&, "Progman", vbNullString) 'Ocultamos los iconos pasandole a ShowWindow el Hwnd del escritorio _ y la constante SW_HIDE que indica ocultar Call ShowWindow(HWND_Escritorio, SW_HIDE) End Sub 'Para Mostrar los iconos Private Sub Command2_Click() Dim HWND_Escritorio As Long On Error Resume Next 'Obtenemos el Hwnd del escritorio HWND_Escritorio = FindWindowEx(0&, 0&, "Progman", vbNullString) 'Mostramos los iconos pasandole el Hwnd del escritorio _ y la constante SW_SHOW Call ShowWindow(HWND_Escritorio, SW_SHOW) End Sub Private Sub Form_Load() Command1.Caption = " Ocultar íconos " Command2.Caption = " Mostrar íconos " End Sub

Habilitar y deshabilitar el escritorio

El ejemplo es muy similar, pero en este caso en ves de showWindow para hacer visible y ocultar, se usa la función del api EnableWindow que permite habilitar o desactivar una ventana en windows a partir de su Hwnd o handle

Colocar dos controles CommandButton

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() Escritorio False End Sub Private Sub Command2_Click() Escritorio True End Sub Private Sub Form_Load() Command1.Caption = " Deshabilitar " Command2.Caption = " Habilitar " End Sub

Código fuente en un módulo bas

' Declaraciones del api '''''''''''''''''''''''''''''''' Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) _ As Long Private Declare Function EnableWindow Lib "user32" _ (ByVal hwnd As Long, _ ByVal fEnable As Long) _ As Long Public Sub Escritorio(ByVal Valor As Long) Dim Flag As Long Dim Hwnd_Escritorio As Long Select Case Valor Case False Flag = 0 Case True Flag = 1 End Select ' captura el hwnd del escritorio Hwnd_Escritorio = FindWindow("Progman", vbNullString) ' activa o desactiva el escritorio EnableWindow Hwnd_Escritorio, Flag End Sub

Recursos vb - Enlaces relacionados

Buscar en Recursos vb