Minimizar desde Visual..
¿Sabes cómo se pueden minimizar todas las ventanas desde Visual?
Te agradecería mucho ese código, pues no lo he podido encontrar..
Terramar.
Te agradecería mucho ese código, pues no lo he podido encontrar..
Terramar.
1 respuesta
Respuesta de fvomaster
1
Veamos, en Visual Basic es fácil minimizar todas las ventanas visibles mediante programación usando el API keybd_event.
El truco consiste en imitar los eventos de teclado requeridos para abrir el menú de la barra de tareas y enviar la letra "M" para seleccionar la opción "Minimizar todas las ventanas". Con tres llamadas al API keybd_event podremos conseguirlo.
El segundo argumento de la llamada a keybd_event es el código de tecla (hardware scan code), y en este caso podríamos usar el valor 91, sin embargo dado que las aplicaciones podrían no usar este código, se ha dejado a cero.
Ejemplo paso a paso.
1. Inicia un nuevo proyecto EXE. Form1 se crea por defecto.
2. Añade un botón de comando en Form1.
3. Copia y pega el siguiente código en la ventana de código de Form1.
Private Declare Sub keybd_event Lib "user32" ( ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Private Sub Command1_Click() ' 77 is the character code for the letter 'M'
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
4. Pulsa la tecla F5 para ejecutar la aplicación y haz clic en el botón de comandos, se minimizarán todas las ventanas visibles.
Eso es todo...
=^_^=, Rancagua - Chile
El truco consiste en imitar los eventos de teclado requeridos para abrir el menú de la barra de tareas y enviar la letra "M" para seleccionar la opción "Minimizar todas las ventanas". Con tres llamadas al API keybd_event podremos conseguirlo.
El segundo argumento de la llamada a keybd_event es el código de tecla (hardware scan code), y en este caso podríamos usar el valor 91, sin embargo dado que las aplicaciones podrían no usar este código, se ha dejado a cero.
Ejemplo paso a paso.
1. Inicia un nuevo proyecto EXE. Form1 se crea por defecto.
2. Añade un botón de comando en Form1.
3. Copia y pega el siguiente código en la ventana de código de Form1.
Private Declare Sub keybd_event Lib "user32" ( ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Private Sub Command1_Click() ' 77 is the character code for the letter 'M'
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
4. Pulsa la tecla F5 para ejecutar la aplicación y haz clic en el botón de comandos, se minimizarán todas las ventanas visibles.
Eso es todo...
=^_^=, Rancagua - Chile
