MOUSE X E Y

 Tópico anterior Próximo tópico Novo tópico

MOUSE X E Y

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#1041 - 15/12/2003 10:25:55

USUARIO.EXCLUIDOS

Cadast. em:


Dae,
presiso saber a posio X e Y do mouse, mas n relativo ao form e sim, do windows, mas sempre, n com o MouseMove



Resposta escolhida #1105 - 15/12/2003 20:56:40

USUARIO.EXCLUIDOS

Cadast. em:


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 anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45