TRAÇAGE DE CERCLE, RECTANGLE, TRAIT EN VB.NET

jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
- 18 avril 2005 à 20:10
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
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/30837-tracage-de-cercle-rectangle-trait-en-vb-net

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