[VB.net]Créer une picturebox ou un bouton... Arrondis

Salut
Voici un petit tuto plutôt simple, pour arrondir nos controls. Il vous suffit de coller ce code dans l'événement Paint :

Code:

'activation de plusieurs options pour améliorer le rendu
        e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        e.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

        Dim control As Control = sender 'on réccupère le control dessiné

        Dim Path As New System.Drawing.Drawing2D.GraphicsPath 'Création d'un graphic path qui va recevoir le cercle
        Dim Rectangle As Rectangle = control.ClientRectangle 'Création d'un rectangle qui contient le dessin du control

        Rectangle.Inflate(-10, -10) 'rognage des bords du rectangle
        Path.AddEllipse(Rectangle) 'dessin du cercle
        control.Region = New System.Drawing.Region(Path) 'application des modifications

Il est possible de modifier la taille, en modifiant les valeurs, ligne 8.


Bon dev  !

Salut,

p'tit test et je re !

cordialement

EDIT : Il marche bien sauf que en modifiant les valeurs, on quelques bugs sur les bordures.