Traçage de cercle, rectangle, trait en vb.net

2/5 (11 avis)

Snippet vu 28 629 fois - Téléchargée 33 fois

Contenu du snippet

Source sans prétention mais qui servira pour beaucoup, il y a pleins de possibilité de traçage, les arc de cercles, cercles, rectangle, ellipse, triangle, traits, point, bref... voici un bout de code utile je pense.

Source / Exemple :


Dim ObjDessin As System.Drawing.Graphics = Me.CreateGraphics()   'Création de l'object graphique
        Dim ObjGraph As New System.Drawing.Rectangle(100, 100, 200, 200)   'Définition d'un objet de taille de 200 x 200 à l'emplacement 100 x 100
        ObjDessin.DrawEllipse(System.Drawing.Pens.Black, ObjGraph)  'Traçage d'une ellipse/Cercle en fonction de ObjGraph
        ObjDessin.DrawRectangle(System.Drawing.Pens.Red, ObjGraph)  'Traçage d'un rectangle en fonction de ObjGraph
        ObjDessin.DrawLine(System.Drawing.Pens.Blue, 100, 100, 200, 200) 'Traçage d'une ligne partant du point de coordonnées (100,100) vers le point de coordonnées (200,200)

A voir également

Ajouter un commentaire Commentaires
cs_Steph30 Messages postés 1 Date d'inscription lundi 16 février 2004 Statut Membre Dernière intervention 14 octobre 2012
14 oct. 2012 à 11:47
Merci beaucoup!
Réponse rapide,simple, nette et efficace à la question que je me posais...
Pour information, ces quelques lignes de code tournent également sous Microsoft Visual Basic 2010 Express.
Amicalement.
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
8 sept. 2011 à 13:32
Bonjour,

Toujours utile encore en 2011 ! ^^

=

Je rajoute, pour l'épaisseur du trait on la défini par :

Dim blackPen As New Pen(Color.Black, 10)

Donc un nouveau objet qui a la couleur noir d'une taille de 10pixel.
Ensuite, comme précédemment :

ObjDessin.DrawEllipse(blackPen, ObjGraph)

=

Pour remplir l'ellipse ou le rectangle, on utilise les propriétés FillEllipse, FillRectangle comme précédemment...

=

Amicalement,
Us.
hmatnet Messages postés 1 Date d'inscription mardi 5 mai 2009 Statut Membre Dernière intervention 25 mai 2009
25 mai 2009 à 09:21
Salut,
Merci beaucoup pour ton code qui est bien utile !!! En 2009, il sert encore
logistel Messages postés 11 Date d'inscription mercredi 3 août 2005 Statut Membre Dernière intervention 8 novembre 2011
21 oct. 2007 à 16:13
Qui possede du code en VB.Net 2005 pour tracer un cercle pardait avec méthode anti-crenelage.
Je l'ai en VB6 mais n'arrive pas à l'exploiter sous VB.Net 2005
FLO1978 Messages postés 18 Date d'inscription dimanche 26 octobre 2003 Statut Membre Dernière intervention 1 août 2006
22 juin 2006 à 19:58
Problème résolu :)

Dim ObjGraph2 As New System.Drawing.Rectangle(220, 100, 100, 200)
ObjDessin.FillRectangle(Brushes.White, ObjGraph2)
Afficher les 11 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.