[vb.net] rectangle arrondi

Version imprimable

24/10/2006, 14h55
malhivertman1

[vb.net] rectangle arrondi
Bonjour, je creer un bitmap avec

Code:

Dim MonBitMap As New Bitmap(Larg, Haut)

puis je dessine dedans en utilisant un graphics
Code:

1 2 Dim MonObjGfx As Graphics MonObjGfx = Graphics.FromImage(MonBitMap)
j'aimerai que qd je créer un rectangle avec

Code:

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.

Code:

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:

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

Ca fait a peu prés ce que je voulais ;) :D

25/10/2006, 09h28
malhivertman1

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