TRAÇAGE DE CERCLE, RECTANGLE, TRAIT EN VB.NET
jrbleboss
cs_Steph30
- Messages postés
- 480
- Date d'inscription
- jeudi 6 mai 2004
- Statut
- Membre
- Dernière intervention
- 3 septembre 2007
cs_Steph30
- Messages postés
- 1
- Date d'inscription
- lundi 16 février 2004
- Statut
- Membre
- Dernière intervention
- 14 octobre 2012
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
https://codes-sources.commentcamarche.net/source/30837-tracage-de-cercle-rectangle-trait-en-vb-net
14 oct. 2012 à 11:47
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
108 sept. 2011 à 13:32
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.
25 mai 2009 à 09:21
Merci beaucoup pour ton code qui est bien utile !!! En 2009, il sert encore
21 oct. 2007 à 16:13
Je l'ai en VB6 mais n'arrive pas à l'exploiter sous VB.Net 2005
22 juin 2006 à 19:58
Dim ObjGraph2 As New System.Drawing.Rectangle(220, 100, 100, 200)
ObjDessin.FillRectangle(Brushes.White, ObjGraph2)