Discussion :

[Miska59]

Bonjour,

j'arrive pas centrer le demi cercle dans dans un rectangle.

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
20
21
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim g As Graphics = e.Graphics
        Dim r As New Rectangle(0, 0, Me.Width - 1, Me.Height - 1)
        g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
        g.CompositingQuality = CompositingQuality.HighQuality
        Dim center As New PointF(r.Width / 2, r.Height / 2)
        Dim innerR As Integer = CInt(center.X / 2)
        Dim thickness As Integer = CInt(center.Y / 2)
        Dim startAngle As Integer = 180
        Dim arcLength As Integer = 180
        Dim outerR = innerR + thickness
        Dim outerRect As New Rectangle(center.X - outerR, center.Y - outerR, 2 * outerR, 2 * outerR)
        Dim innerRect As New Rectangle(center.X - innerR, center.Y - innerR, 2 * innerR, 2 * innerR)
        Using p As New GraphicsPath()
            p.AddArc(outerRect, startAngle, arcLength)
            p.AddArc(innerRect, startAngle + arcLength, -arcLength)
            p.CloseFigure()
            g.FillPath(New SolidBrush(Me.BackColor), p)
            g.DrawPath(New Pen(New SolidBrush(Color.Black), 4), p)
        End Using
end sub

Pouvez-vous m'aider à centrer demi cercle dans le rectangle? merci d'avance

[Miska59]

Bonsoir,

pouvez-vous m'aider à centrer un demi-cercle par rapport au rectangle(voir image).
exemple du classe :

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
20
21
22
23
Public Class DemiCircle : Inherits Control
 
    Public Sub New()
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
        Me.MinimumSize = New Size(220, 120)
        Me.Size = New Size(220, 120)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim g As Graphics = e.Graphics
        Dim Hauteur As Integer = Me.ClientRectangle.Height
        Dim Longueur As Integer = Me.ClientRectangle.Width
        Dim centreX As Integer = Hauteur / 2
        Dim CenterY As Integer = Longueur / 2
        Dim radius As Integer = If(Hauteur < Longueur, Hauteur, Longueur) / 2
        Dim rect As New Rectangle(centreX - radius, CenterY - radius, 2 * radius, 2 * radius)
        Using pen As New Pen(Color.Black, 50)
            g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            g.DrawArc(pen, rect, 180, 180)
        End Using
    End Sub
End Class

image de la classe :


merci d'avance.

[m4k-Hurrican]

Bonjour,

A ce que je vois déjà tu as interverti le calcul du centre...CentreX devrait être calculé depuis la largeur pas la hauteur et idem pour CentreY qui devrait être calculé depuis la hauteur