Ler posições do rato em VB

[Samuca_]

Sou iniciado a programar em VB e queria saber como posso ler as posições do rato em VB.

Alguem me pode explicar como é que se faz isto?

Desde já, obrigado...​

 

[Samuca_]

Já consegui fazer o que queria. Utilizei o evento:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Com isto já consegui...

 

[_Neo__]

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


Public Type POINTAPI
X As Long
Y As Long
End Type

-----------------------------

Com isto tens a posição absoluta do rato no ecrã, ideal para detectares quando o mouse está por cima de um objecto, vb não tem mouse over mas podes ir calculando com esta função

 

[Samuca_]

Isso funciona em todo o ecrã?

A solução que coloquei só funciona no form, que é o que eu preciso. Mas se calhar vou usar a tua solução, pode dar geito para mais tarde.

Obrigado

 

[_Neo__]

yep esta funciona em todo o ecra, não tenho aqui o vb mas para usar acho q era

dim p as pointapi
GetCursorPos p

depois
p.x
p.y
guardam os valores

tens de te lembrar que a posição dos objectos em vb é relativo ao form por isso para detectar se o rato esta por cima tens de contar com a posição do objecto + a posição da form