Ejemplos usando el Api de windows para Visual basic

109 - Minimizar todas las ventanas abiertas de windows

Volver al Listado Api - Anterior - Siguiente

Este ejemplo utiliza el Api keybd_event para mandar una pulsación de tecla, mejor dicho varias, al botón " Minimizar todas las ventanas" del menú de la barra de tareas de windows.

Colocar 1 CommandButon y el siguiente código fuente

'Declaración del Api keybd_event Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 'Constantes Const KEYEVENTF_KEYUP = &H2 Const VK_LWIN = &H5B Private Sub Command1_Click() Call keybd_event(VK_LWIN, 0, 0, 0) Call keybd_event(77, 0, 0, 0) Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0) End Sub Private Sub Form_Load() Command1.Caption = " Minimizar todas las ventanas abiertas " End Sub

Nota. Probado solo en windows XP

Enlaces relacionados

Capturar la pantalla con el Api Keybd_Event

Buscar en Recursos vb