Gradient color

Question

Salut
J'ai écrit ça

Dim rect As Rectangle = New Rectangle(50, 30, 200, 200)
Dim lBrush As LinearGradientBrush = New LinearGradientBrush(rect, Color.Blue, Color.Green, LinearGradientMode.Vertical)


je reçois type LinearGradientBrush is not defined

Merci d'avance

cs_Le Pivert · Answer

Bonjour,
Je pense que c'est cela car une publicité m'empêche de voir la totalité du code:

 Dim myBrush As LinearGradientBrush
    Dim rect As Rectangle
        rect = New Rectangle(50, 30, 200, 200)
        myBrush = New LinearGradientBrush(rect, Color.Blue, Color.Green, LinearGradientMode.Vertical)
@+

cs_Le Pivert · Answer

Il ne faut pas oublier ceci:

Imports System.Drawing
Imports System.Drawing.Drawing2D

@+

cs_Le Pivert · Answer

J'ai fait un test il manque une ligne:

Imports System.Drawing
Imports System.Drawing.Drawing2D

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myBrush As LinearGradientBrush
        Dim rect As Rectangle
        rect = New Rectangle(50, 30, 200, 200)
        myBrush = New LinearGradientBrush(rect, Color.Blue, Color.Green, LinearGradientMode.Vertical)
        Me.CreateGraphics.FillRectangle(myBrush, rect)
    End Sub

Comme cela ça fonctionne
@+

cs_ShayW · Answer

Bonjour
Merci 
ça marche il fallait ajouter 
   Imports System.Drawing.Drawing2D
Le résultat n'est pas comme je pensais
Par exemple avec le word on peut colorier des
figures et ça donne de belle couleur comme couleur doré brilliant et autres...

Gradient color

4 réponses

Votre réponse