Ejemplos usando el Api de windows para Visual basic

174 - Api GetwindowRect

Ejemplo de esta función api que permite obtener: la posición Left , top y Right y Bottom de una ventana en windows

Declaración de Getwindowrect

Private Declare Function GetWindowRect Lib "user32" ( _
    ByVal hwnd As Long, _
    lpRect As RECT) As Long

El parámetro " hwnd "es el Hwnd de la ventana , el segundo "lpRect" es la siguiente estructura:

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

.. que devuelve los valores mencionados anteriormente

Ejemplo

Colocar en el formulario un control Timer y luego mover la ventana para ver los valores

Option Explicit ' Declaración del Api GetWindowRect _ ( devuelve las coordenadas x - y - Top - Bottom de una venta en pixels ) Private Declare Function GetWindowRect Lib "user32" ( _ ByVal hwnd As Long, _ lpRect As RECT) As Long ' Estructura rect que requiere GetWindowRect Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Const ERROR_INVALID_WINDOW_HANDLE As Long = 1400 Sub Mostrar_datos(el_Hwnd As Long) Dim t_Rect As RECT Cls If GetWindowRect(el_Hwnd, t_Rect) = 0 Then If Err.LastDllError = ERROR_INVALID_WINDOW_HANDLE Then MsgBox " Hwnd no válido ", vbCritical End If Else Print " left :" & t_Rect.Left Print " Right :" & t_Rect.Right Print " Top :" & t_Rect.Top Print " Bottom :" & t_Rect.Bottom End If End Sub Private Sub Form_Load() Me.AutoRedraw = True Timer1.Interval = 100 Me.Caption = " Posición de la ventana en pixeles " End Sub Private Sub Timer1_Timer() Mostrar_datos Me.hwnd End Sub

Relacionados

Buscar en Recursos vb