Ejemplos usando el Api de windows para Visual basic

30 - Api GetWindowPlacement

Este ejemplo muestra como podemos averiguar si una ventana está en estado minimizado, maximizada o en su estado normal.

La Api GetWindowPlacement en el primer parámetro se le envía el Hwnd de la ventana que queremos obtener la información, el segundo parámetro es una estructura para obtener los datos, es decir podemos obtener otra información aparte de esta, como por ejemplo la posición X e Y, el Top, Left etc.. de una ventana, pero en este ejemplo solo se usa la variable showCmd de la estructura que retorna un valor numérico y que indica el estado de la ventana.

Si devuelve un 1 es que la ventana está en modo normal, Si tetorna un 2 es que está Minimizada y en 3 Maximizada.

Ejemplo

Colocar un control Timer en el Form1.

Agregar un From2

Código fuente en el formulario ( Form 1 )

Option Explicit ' Estructura POINTAPI Private Type POINTAPI x As Long y As Long End Type ' Estructura RECT para obtener la posición _ izquierda, derecha, arriba, abajo Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type 'Estructura para la función Api _ GetWindowPlacement en el segundo parámetro Private Type WINDOWPLACEMENT Length As Long flags As Long showCmd As Long ptMinPosition As POINTAPI ptMaxPosition As POINTAPI rcNormalPosition As RECT End Type ' Función Api GetWindowPlacement Private Declare Function GetWindowPlacement Lib "user32" ( _ ByVal hwnd As Long, _ lpwndpl As WINDOWPLACEMENT) As Long Private Sub Form_Load() Form2.Show Timer1.Interval = 50 End Sub Private Sub Timer1_Timer() 'Variable para usar la estructura WINDOWPLACEMENT Dim T_WINDOWPLACEMENT As WINDOWPLACEMENT Dim Ret As Long 'Valor de retorno de la función 'Para este ejemplo solo necesitamos enviarle el tamaño de la estructura 'en la variable Lenght T_WINDOWPLACEMENT.Length = Len(T_WINDOWPLACEMENT) 'Llamamos a la función Ret = GetWindowPlacement(Form2.hwnd, T_WINDOWPLACEMENT) Form1.Cls Select Case T_WINDOWPLACEMENT.showCmd Case 1 Form1.Print "Form2 en estado Normal " Case 2 Form1.Print "Form2 Minimizado " Case 3 Form1.Print "Form2 Maximizado " End Select End Sub

Relacionados

Buscar en Recursos vb