Discussion :

[malhivertman1]

Bonjour, je creer un bitmap avec

Code :

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

Dim MonBitMap As New Bitmap(Larg, Haut)

puis je dessine dedans en utilisant un graphics

Code :

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

1
2
Dim MonObjGfx As Graphics
        MonObjGfx = Graphics.FromImage(MonBitMap)

j'aimerai que qd je créer un rectangle avec

Code :

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

MonObjGfx.DrawRectangle

il est les bords arrondis.

Je penser utiliser l'api RoundRect mais je n'arrive pas a m'en servir sur un bitmap

Comment faire?

merci.

[malhivertman1]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Function GetRoundedRectPath(ByVal Rect As System.Drawing.Rectangle, ByVal Radius As Integer) As System.Drawing.Drawing2D.GraphicsPath
        Dim Diameter As Integer = 2 * Radius
        Dim ArcRect As New System.Drawing.Rectangle(Rect.Location, New Size(Diameter, Diameter))
        Dim Path As New System.Drawing.Drawing2D.GraphicsPath
        Path.AddArc(ArcRect, 180, 90)
        ArcRect.X = Rect.Right - Diameter
        Path.AddArc(ArcRect, 270, 90)
        ArcRect.Y = Rect.Bottom - Diameter
        Path.AddArc(ArcRect, 0, 90)
        ArcRect.X = Rect.Left
        Path.AddArc(ArcRect, 90, 90)
        Path.CloseFigure()
        Return Path
    End Function

Code :

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

MonObjGfx.DrawPath(Pens.Red, GetRoundedRectPath(New System.Drawing.Rectangle(0, 0, 50, 50), 6))

Ca fait a peu prés ce que je voulais

[malhivertman1]

par contre, je n'arrive pas a avoir les bords arrondis, juste en haut, juste en bas, etc..