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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 27 614 fois - Téléchargée 31 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

Messages postés
1
Date d'inscription
lundi 16 février 2004
Statut
Membre
Dernière intervention
14 octobre 2012

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.
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
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.
Messages postés
1
Date d'inscription
mardi 5 mai 2009
Statut
Membre
Dernière intervention
25 mai 2009

Salut,
Merci beaucoup pour ton code qui est bien utile !!! En 2009, il sert encore
Messages postés
11
Date d'inscription
mercredi 3 août 2005
Statut
Membre
Dernière intervention
8 novembre 2011

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
Messages postés
18
Date d'inscription
dimanche 26 octobre 2003
Statut
Membre
Dernière intervention
1 août 2006

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.