MOUSE X E Y

USUARIO.EXCLUIDOS 15/12/2003 10:25:55
#1041
Dae,
presiso saber a posição X e Y do mouse, mas n relativo ao form e sim, do windows, mas sempre, n com o MouseMove
USUARIO.EXCLUIDOS 15/12/2003 20:56:40
#1105 Resposta escolhida
Tente isso:
######COLOQUE ISSO NA PARTE DE DECLARÇÓ¡O####

Private Declare Function GetCursorPos Lib "user32" (ipPoint As POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

####### E ISSO NO EVENTO TIMER DE UM TIMER#####

Dim mouse As POINTAPI
GetCursorPos mouse
label1.caption = mouse.x
label2.caption = mouse.y

####FALOW####
Tópico encerrado , respostas não são mais permitidas
Voltar