Salut
Voici un petit tuto plutôt simple, pour arrondir nos controls. Il vous suffit de coller ce code dans l'événement Paint :
Il est possible de modifier la taille, en modifiant les valeurs, ligne 8.
Bon dev !
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 !