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

68 - Minimizar o maximizar una ventana o aplicación de windows usando las Api ShowWindow y FindWindow

Ejemplo que utiliza dichas funciones del Api para minimizar, maximizar , ponerle foco etc.., a una ventana o aplicación abierta de windows., en este caso accediendo a la ventana mediante el nombre de clase

El ejemplo muestra como podemos ocultar el Msn y reestablecerlo

En este caso, el ClassName del Msn es "Msn Messenger" , que se le pasa como parámetro a FindWindow para retornar el Hwnd.

Luego con la función ShowWindow lo ocultamos ( Sw_Hide ) y lo reestablecemos con el valor (SW_Normal ) .

Controles

Colocar 2 CommandButton, Command1 y Command2

Código fuente en el formulario:

Option Explicit 'Función Api FindWindow para buscar el HWND Private Declare Function FindWindow _ Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Función ShowWindow para maximizar , minimizar etc.. Private Declare Function ShowWindow _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long 'Constantes para el api ShowWindow Const SW_HIDE = 0 Const SW_NORMAL = 1 Dim Handle As Long 'Ocultar ventana Private Sub Command1_Click() Handle = FindWindow(vbNullString, "MSN Messenger") Call ShowWindow(Handle, SW_HIDE) End Sub 'Mostrar ventana Private Sub Command2_Click() 'El nombre "MSN Messenger" es el nombre de la clase de ventana del Msn Handle = FindWindow(vbNullString, "MSN Messenger") Call ShowWindow(Handle, SW_NORMAL) End Sub Private Sub Form_Load() Command1.Caption = " Ocultar " Command2.Caption = " Mostrar " End Sub

Nota: Otras constantes o valores para poder pasarle a la función ShowWindow para presentar la ventana son:

vbMaximized, vbMaximizedFocus, vbMinimizedFocus, vbMinimizedNoFocus, vbNormalFocus, vbNormalNoFocus, vbNormal, vbMinimized

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb