Foros - Stratos

Programadores => General Programadores => Mensaje iniciado por: Siliconplus en 10 de Julio de 2008, 12:07:51 AM

Título: Obtener el Tamaño de una Ventana con APIs
Publicado por: Siliconplus en 10 de Julio de 2008, 12:07:51 AM
Estimados...
Necesito saber el tamaño de una ventana con las APIs.   Estoy programando un VB6.  y resulta que necesito saber el tamaño de la primera ventana que esta activa (al tope), sus dimensiones y posicion (x,y, Width, Height) :shock: y compararla con la proxima que voy a abrir, si son iguales entonces las coordenas (de la nueva) le agrego unos pixeles mas parar abajo y a la izquierda de modo que se vea estilo cascada.
No sirve el form.Width ni Height pues no sé cual es la que esta al tope...

Plis.. F1, F1, F1....

 :lol:
Título: Obtener el Tamaño de una Ventana con APIs
Publicado por: [EX3] en 10 de Julio de 2008, 09:17:25 AM
Echa un vistazo a este codigo:
Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long

Dim wSize As RECT

Call GetWindowRect(GetActiveWindow(), wSize)

Salu2...
Título: Coordena de la Ventana Hija
Publicado por: Siliconplus en 10 de Julio de 2008, 04:47:46 PM
Gracias... Simple, concreto y efectivo.  
:D