DESSIN TYPE PAINT MAIS ORIENTÉ MATHS

Signaler
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
Messages postés
1
Date d'inscription
vendredi 4 juin 2010
Statut
Membre
Dernière intervention
4 juin 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36150-dessin-type-paint-mais-oriente-maths

Messages postés
1
Date d'inscription
vendredi 4 juin 2010
Statut
Membre
Dernière intervention
4 juin 2010

merci
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
cette API est inutile, dans ton programme, dumoins pour ce que j'en ai vu....

utilise simplement les informations x et y qui sont transmises avec les evenements (comme dans Picture1_MouseMove, ci-dessus)
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
312
OK, je n'avais pas vu ce que tu voulais dire.
Etant donné que je ne suis que débutant en VB, les API j'utilise mais je ne suis pas au top dans ce domaine.
Est ce qu'il y a d'autres facons que l'API GetCursorPos pour récuperer les coordonnées de la souris ?
Si oui lesquelles et si non comment corriger ce probleme ?
Merci de ton aide
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
de ma résolution d'écran ?

non, absolument rien a voir......

tu utilise l'API GetCursorPos, qui récupère les coordonnées du curseur de la souris. Seulement, ca ne tien pas compte de l'origine X;y de ta pictureBox

d'où, d'ailleurs, les ajustements :
X1 = Tampon.X - 66
Y1 = Tampon.Y - 48

que l'on retrouve un peu partout (valeurs en dur, attention ^^)

ce qui est étrange, comme utilisation de cette API, c'est qu'elle intervient dans des Evenements qui renvoient, la position de la souris....

par exemple, Picture1_MouseMove devient :

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.Caption = "Crayon" Then
If PicturePressed = True Then
If X1 <> 0 Then
Picture1.Line (X1, Y1)-(X, Y), color
End If
X1 = X
Y1 = Y
End If
End If
End Sub

plus d'API, et plus de décalage
Afficher les 7 commentaires