Dessin type paint mais orienté maths

Soyez le premier à donner votre avis sur cette source.

Vue 12 427 fois - Téléchargée 1 883 fois

Description

Ce programme permet assez simplement de dessiner des points, droites, cercles, carrés, et toutes sortes de polygones en utilisant les fonctions Pset, Line, Circle...
Il y a également la possbilité de sauvegarder ou de charger ses dessins.

Conclusion :


Si vous avez d'autres idées de choses à mettre sur ce programme n'hésitez pas.
Merci à VB lover pour les angles.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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
66
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
306
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
66
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
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
306
Le probleme vient de ta résolution d'écran je pense, je voulais ajouter au code la redimention d'écran mais le faire manuelement est je pense préférable car je n'aime pas tellement qu'on touche a mes configurations.
Afficher les 7 commentaires

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.