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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 700 fois - Téléchargée 29 fois

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

Ajouter un commentaire Commentaire
mythic_kruger Messages postés 241 Date d'inscription jeudi 8 janvier 2004 Statut Membre Dernière intervention 10 novembre 2005
27 févr. 2005 à 02:39
On peut noter la puissance
a²+b²=c²
(Viens pas chialer c'est une convention)

++
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)