Invertire movimento mouse

[matsim]

Ciao a tutti,
esiste una funzione delle api per invertire la direzione del mouse.. ovvero se sposto il puntatore verso l'alto deve andare in basso...

Grazie a quanti mi risponderanno!

Ps.
Devo fare un bel scherzetto ad un mio amico

[Foga27News]

Forse sarebbe possibile (A dire il vero avevo già provato).
Usi le API SetCursorPos e GerCursorPos ed un timer

[matsim]

Si mi pare proprio possibile.. ricavando la posizione del puntatore e settandolo a -1 dovrebbe funzionare!

[FinalFantasy]

Mentre ke siamo nell'argomento del mouse, come ricavo X e Y del mouse?

[matsim]

Ecco qua una breve guida su come ricavare la x e la y del mouse:

Determinare la posizione del mouse
--------------------------------------
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Con la  variabile del tipo POINTAPI:

Type POINTAPI
x As Long
y As Long
End Type

La funzione GetCursorPos restituisce in una variabile di tipo definito dall’utente denominata POINTAPI le coordinate x,y relative all’angolo superiore a sinistra dello schermo.

Esempio
Sub PosizioneScreenMouse()
Dim Posizione As POINTAPI
Dim PuntoX As Integer
Dim PuntoY As Integer
GetCursorPos Posizione
'per ricavare la posizione x e y
PuntoX = Posizione.x'coordinata del punto x
PuntoY = Posizione.y'coordinata del punto y
End Sub

GetCursorPos da la posizione del cursore , rispetto all’angolo superiore sinistro dello schermo. Se si desidera  conoscere la posizione del mouse, relativamente al form in uso si deve convertire i valori con:

Declare Function ScreenToClient Lib "user32" Alias "ScreenToClient" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

La funzione ScreenToClient converte le coordinate x,y, ricavate con la funzione GetCursorPos, nelle coordinate relative all’angolo superiore sinistro di un form specificato.

Esempio
Sub PosizioneWindowMouse()
Dim Posizione As POINTAPI
Dim PuntoX As Integer
Dim PuntoY As Integer
GetCursorPos Posizione'restituisce la posizione x,y relativamente allo schermo
ScreenToClient Me.hWnd, Posizione 'converte la posizione x,y relativamente al form specificata (.hWnd)

'per ricavare la posizione x e y
PuntoX = Posizione.x'coordinata del punto x relativa al form corrente
PuntoY = Posizione.y'coordinata del punto y relativa al form corrente
End Sub

le due funzioni, GetCursorPos e ScreenToClient, restituiscono la posizione del mouse con valori espressi in pixel. Per convertire i valori in Twip :

PuntoX = Posizione.x * Screen.TwipsPerPixelX’
PuntoY = Posizione.y * Screen.TwipsPerPixelY

:metallica :sexpulp:

[FinalFantasy]

Ho provato a farlo xo nn mi funziona tanto bene. Mi manderesti via email un sorgete? Cmq valeriogiuffrida@hotmail.com

Grassie

[matsim]

Sorgente inviato !!!

:metallica :sexpulp:

[matsim]

Helpme !!!!

Nessuno ha un piccolo sorgente per invertire la posizione del mouse???