Discussion :

[arnofly]

Bonjour !

Je n'arrive pas à convertir ce bout de code que j'ai trouvé sur la toile.
Ce code doit permettre de réaliser un dégradé radial. Je voudrais l'équivalent en VB.NET svp.

Code :

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

1
2
3
4
5
6
7
8
GraphicsPath path = new GraphicsPath();  
path.AddEllipse(0, 0, 198, 198);  
g.DrawPath(pen, path);    
PathGradientBrush pathGradient = new PathGradientBrush(path);    
pathGradient.CenterColor = System.Drawing.Color.Gold;  
Color[] surroundingColors = {System.Drawing.Color.CadetBlue};    
pathGradient.SurroundColors = surroundingColors;    
g.FillPath(pathGradient, path);

Please help !
D'avance, merci.

[wakan]

Bonjour,
Regarde cette classe tu as tout ce qui faut pour faire ta convertion et bien plus encore.
http://msdn.microsoft.com/fr-fr/libr....graphics.aspx
A bientôt.

[arnofly]

Slt,

merci pour l'info. j'utilise cette class depuis peu, mais dans le cas présent, c'est un peu trop complexe pour moi pour le moment.

[arnofly]

C bon !

En essayant de rester le plus fidel possible au code original, j'obtients ça :

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
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
    End Sub
 
 
    Private Sub RadialGradient(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
 
        Dim g As Graphics = Me.CreateGraphics
        Dim Pen As Drawing.Pen = Pens.CadetBlue
        Dim path As New Drawing2D.GraphicsPath
        path.AddEllipse(0, 0, 198, 198)
        g.DrawPath(Pen, path)
 
        Dim pathGradient As New Drawing2D.PathGradientBrush(path)
        pathGradient.CenterColor = System.Drawing.Color.Gold
        Dim surroundingColors As Color() = {System.Drawing.Color.CadetBlue}
        pathGradient.SurroundColors = surroundingColors
        g.FillPath(pathGradient, path)
    End Sub
End Class