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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 283 fois - Téléchargée 27 fois

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
242
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005
-
On peut noter la puissance
a²+b²=c²
(Viens pas chialer c'est une convention)

++

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.