Posicion absoluta de controles! - VB-MUNDO

Anl · #1 (**permalink**) 08-08-2005, 15:14:57

Buenas!!!, les agradeceria mucho si alguien me puede decir como hago para saber la posicion absoluta de un control en la pantalla?....a lo que me refiero...es que las propiedades Left y Top, me devuelven la posicion en el formulario, pero necesito saber su posicion en la pantalla.

Luego con esos datos necesito posicionar un formulario en esas mismas coordenadas.

Desde ya, muchas gracias!!!

Saludos.

acalanto · #2 (**permalink**) 08-08-2005, 16:00:10

Si al Left-Top del control le sumas el Left-Top de sus parientes (Formulario en este caso), obtendrás la posición en pantalla del mismo.

Cuidado con los bordes y las medidas en el caso de que tengas 'cosas' escaladas

Anl · #3 (**permalink**) 08-08-2005, 16:14:36

Muchas gracias por tu pronta respuesta!!.

La verdad es que lo estaba haciendo como tu me dices, pero como es para un OCX con polimorfismo (tipo comboBox pero mucho mas complejo), cuando lo meto dentro de un Frame o un PictureBox el formulario me sale en cualquier lado.

Y lo que dices de las cosas escaladas, te refieres a la barra de titulo y los bordes del formulario? por que esa era otra razon para buscar otra solucion :smt002

Igualmente muchisimas gracias!!!

Anl · #4 (**permalink**) 11-08-2005, 02:30:26

Bueno!! pongo este post, por que lo he resuelto y por si a alguien le sirve.

El codigo es el sguiente:

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Dim pos As RECT
GetWindowRect UserControl.hWnd, pos
frm.Top = pos.Bottom * Screen.TwipsPerPixelY
frm.Left = pos.Left * Screen.TwipsPerPixelX

Eso es todo. Saludos!.