Déterminer de combiens de pixels votre curseur c'est déplacé

Commenter

Contenu du snippet

C'est un code bien simple que permet de trouver de combiens de pixels le curseur s'est déplacé. J'utilise l'api getcursorpos et la méthode de pythagore pour trouver la vrai taille du déplacement. Je vous le redit : C'est un code bien simple donc venez pas chialez si vous trouvez ça d'une facilité déconcertante. Ça marche assez bien.

Source / Exemple : 


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private OX As Long
Private OY As Long
Private Start As Boolean
Public Function DistanceParcourue() As Long
Dim pt As POINTAPI, NX As Long, NY As Long
GetCursorPos pt
If Start = False Then
OX = pt.X
OY = pt.Y
Start = True
End If
NX = pt.X - OX
NY = pt.Y - OY
OX = pt.X
OY = pt.Y
DistanceParcourue = Sqr((NX * NX) + (NY * NY)) 'PYTHAGORE a^2+b^2=c^2 (pour le triangle rectangle formé)
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gabchampagne)