Discussion :

[kronos85]

Bonsoir à tous,

Problème simple à priori mais je n'arrive pas à m'en sortir...
Comment dessiner des cercles concentriques? (En le faisant via g.DrawEllipse(...) dans une picture box)

Le "souci" c'est que le cercle est repéré par le point en haut à gauche du carré le contenant. J'ai essayé de faire ça à grands coups de Pythagore (avec les côtés du carré et le rayon) mais en vain :s

Je sais que c'est faible mais je n'arrive pas à m'en sortir et ça m'ennerve et du coup je m'en sort encore moins et ça m'ennerve encore plus et...

Bref merci d'avance à une âme charitable qui passerait par là

[StormimOn]

Je ne fais pas dans le VB.Net donc il y aura peut être des coquilles (c'est de la faute du traducteur à ce moment ), mais le principe est là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs)
  Dim rayons As Integer() = {10, 20, 30, 40, 50}
  Dim g As Graphics = e.Graphics
  Dim pen As New Pen(Color.Red)
 
  For Each rayon As Integer In rayons
    g.DrawEllipse(pen, GetRectangle(rayon, pictureBox1.Bounds))
  Next
End Sub
 
Private Function GetRectangle(ByVal rayon As Integer, ByVal bounds As Rectangle) As Rectangle
  Dim rect As New Rectangle()
 
  rect.Width = 2 * rayon
  rect.Height = rect.Width
  rect.Location = New Point((bounds.Width - rect.Width) / 2, (bounds.Height - rect.Height) / 2)
 
  Return rect
End Function

Tu peux également passer par la méthode Inflate de la classe Rectangle (je viens juste de la découvrir ^^) qui modifie largeur/hauteur et modifie la position au passage également, ce qui conserve le centre du rectangle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs)
  Dim g As Graphics = e.Graphics
  Dim pen As New Pen(Color.Red)
  Dim rect As New Rectangle(Point.Empty, pictureBox1.Size)
  Dim i As Integer = 0
 
  While i < 10
    rect.Inflate(-5, -5)
    g.DrawEllipse(pen, rect)
    i++
  End While
End Sub

[kronos85]

Aaaah !! merci c'est super !

J'ai utilisé la 2e méthode (avec le inflate, que je ne connaissais pas non plus) et ça fonctionne du tonnerre

J'ai pas essayé la première méthode qui me semble un poil compliquée pour ce que je veux faire mais ça a l'air correct aussi !


En tout cas MERCI !

P.S : c'est quand même dingue de devoir faire des trucs comme ça pour faire un truc aussi simple que de dessiner des cercles concentriques ! ça aurait pas été plus logique de définir un cercle par son centre et son rayon messieurs de chez Microsoft nan ??

[SaumonAgile]

ça aurait pas été plus logique de définir un cercle par son centre et son rayon messieurs de chez Microsoft nan ??

La méthode s'appelle DrawEllipse...

[kronos85]

Euh... ah bon ? o_O

Bah vas-y essayes donc tiens ^_^

Le DrawEllipse ne support que 4 surcharges de la méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
1.
DrawEllipse(pen As Pen, x As Single, rect As RectangleF)
 
2.
DrawEllipse(pen As Pen, x As Single, y As Single, width As Single, height As Single)
 
3.
DrawEllipse(pen As Pen, x As Single, rect As Rectangle)
 
4.
DrawEllipse(pen As Pen, x As Integer, y As Integer, width As Integer, height As Integer)

Tu auras compris que pour la 1 et la 3, ce sont des rectangles et qu'ils sont définis par le coin supérieur gauche.
Ensuite pour la 2 et la 4, On a effectivement un point pour définir l'ellipse et une longueur et hauteur en guise de rayon (dans le cas où ils sont égaux pour un cercle). Seulement ce point n'est pas le centre mais le coin supérieur gauche du rectangle (ou carré) dans lequel se trouve inscrit(e) l'ellipse (ou cercle)

Bref, essayes donc de dessiner des cercles concentriques comme ça tu verras bien

(peut-être qu'il existe des différences entre les différents frameworks .net, mais je ne pense pas qu'ils s'amusent à redéfinir ainsi ce genre de méthodes !)

[SaumonAgile]

Ce que je veux dire, c'est que tu ne peux pas espérer qu'une méthode DrawEllipse se comporte comme si toute les ellipses étaient des cercles.
De plus en général, les éléments graphiques sont représentés par leur bounding box. Ceci explique le rectangle utilisé pour la définition d'une ellipse.

[kronos85]

Ok je t'ai mal compris alors ^^

Bon ceci dit c'est juste une flemme de programmeur, y'en avait pas pour longtemps pour implémenter un DrawCircle :p (quitte même à ce qu'elle hérite de DrawEllipse)