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)

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:48

Bonjour

Un code aprfait pour mon appli
Par contre comment faire pour que le rectangle dessiné soit plein ?

cs_GG29 Messages postés 326 Date d'inscription vendredi 23 décembre 2005 Statut Membre Dernière intervention 8 février 2011 17
26 avril 2006 à 14:44

je crois qu'il n'y en a pas besoin vu que le code est marqué. il suffit de le copier et de le modifier comme on veut.

cs_guyvdv Messages postés 101 Date d'inscription samedi 16 mars 2002 Statut Membre Dernière intervention 19 mai 2011 1
23 avril 2006 à 15:38

Bonjour ,
Comment avez vous fait pour trouver le zip ???

Guy van der velden

cs_GG29 Messages postés 326 Date d'inscription vendredi 23 décembre 2005 Statut Membre Dernière intervention 8 février 2011 17
10 avril 2006 à 21:23

merci pour ta source. Au moins je vais pouvoir faire un rectangle ds mon prog, ce qui va être très pratique :D.
bonne continuation.

cs_ankou22 Messages postés 81 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 7 juin 2012
26 oct. 2005 à 22:31

Salut

9/10

Je prends, j'adore quand je trouve en 2 secondes...

ANKOU22

jrbleboss Messages postés 480 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 3 septembre 2007 1
18 avril 2005 à 20:10

C'est bien mais c'est très connu. Mais ca peut quand meme en interresser....

9/10

JRB

Discussions similaires

Distance entre 2 points sur un cercle

Tracer un cercle plein (un disque quoi)

Dessiner un arc sans connaitre le centre du cercle

resoudre des équation de cercle

Demi-cercle

Votre réponse

Discussions similaires