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!

Leave a comment

Sign in to post your comment or sine up if you dont have any account.

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Tu software de gestión


Últimas preguntas:

Logo Dkreativo
Vertutoriales