Obtener posición absoluta de un objeto vb6 (Visual Basic 6)

Bienvenidos a VerTutoriales.com, en esta ocasión os traemos una función que nos devolverá la situación exacta en la pantalla de un objeto cualquiera en visual basic 6 (vb6)

Primero deberéis declarar la función GetWindowRect:

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

Una vez declarada la función para obtener la posición, se utiliza de la siguiente manera:

Dim pos As RECT
GetWindowRect ObjetoUsado.hWnd, pos
frmTutorial-VB6.Top = pos.Bottom * Screen.TwipsPerPixelY
frmTutorial-VB6.Left = pos.Left * Screen.TwipsPerPixelX

Como se ve en el código, en la declaración de la variable pos, se le pasa junto con la multiplicación de la pantalla de los twips por pixel tanto en vertical como horizontal y se asigna en este caso a un formulario llamado frmTutorial-VB6.

Espero que os sirva!

Un saludo!