Discussion :

[Hobbi1]

Bonjour,

Je voudrais faire un dégradé avec un texte écrit dessus qui ne soit pas en dégradé.

J'ai trouvé ce code sur internet et étant débutant je n'y comprends pas grand chose. Ca marche bien pour le dégradé mais je n'arrive pas à avoir mon texte correctement écrit. J'ai rajouté un Label et même en mettant sa propriété BackColor à "Transparent", le texte apparait dans un rectangle gris et c'est pas beau

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
23
24
25
Dim g As Graphics = Me.PictureBox1.CreateGraphics
        g.SmoothingMode = SmoothingMode.AntiAlias
 
        Dim rect As Rectangle = New Rectangle(68, 0, Me.PictureBox1.Width, Me.PictureBox1.Height)
        Dim blend As ColorBlend = New ColorBlend()
        'Add the Array of Color
        Dim bColors As Color() = New Color() {colorA, colorB}
        blend.Colors = bColors
 
        'Add the Array Single (0-1) colorpoints to place each Color
        Dim bPts As Single() = New Single() {0, 1.0}
        blend.Positions = bPts
 
        ' Create a LinearGradientBrush or PathGradientBrush depending on the BlendGradientType choice
        Using br As New LinearGradientBrush(rect, Color.White, Color.Black, gradientMode)
            'Blend the colors into the Brush
            br.InterpolationColors = blend
 
            'Fill the rect with the blend
            g.FillRectangle(br, rect)
 
        End Using
 
        'clean up graphics object
        g.Dispose()

Comment faire ?
Merci de vos éclaircissements

[smyley]

Trois étapes :
- Mettre le code de dessin dans l'évènement Paint du contrôle dans lequel on veut dessiner
- Créer le brush (ou pinceau) que l'on veux utiliser pour peindre
- Peindre le texte

Ce qui donne :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g = e.Graphics
 
        Using br As New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.White, Color.Black, LinearGradientMode.Horizontal)
 
            g.DrawString("Je n'aime pas VB !", New Font(Font.FontFamily, 30, FontStyle.Bold, GraphicsUnit.Pixel), br, 0, 0)
 
        End Using
 
        'clean up graphics object
        g.Dispose()
    End Sub

[Hobbi1]

J'ai essayé et ca ne marche pas.
Ca bloque et la form ne s'affiche plus.
Je ne comprends pas

[smyley]

Avant de poster j'ai essayé sur une Form donc ... montre le code entier de ta Form pour voir ...

[Hobbi1]

Ma Form ne comporte pas d'autre code.
En fait, j'aurais du précisé que cette form est appelé par une MDI avec la méthode ShowDialog()

Avec le code j'ai l'exception "Le paramètre n'est pas valide."
Sans le code du Paint, elle s'affiche bien.

En appelant la Form en Child avec Show, la form s'ouvre et j'ai bien le texte en dégradé
Mais c'est pas tout à fait ce que je voulais

Je voulais écrire du texte sur un dégradé dans une fenêtre modale.
J'avais mis un label sur un picturebox qui contenait le dégardé et le fond du label recouvrait le dégardé

[smyley]

Avec le code j'ai l'exception "Le paramètre n'est pas valide."

Sur quelle ligne ?

[Hobbi1]

L'exception "Le paramètre n'est pas valide." apparait sur la ligne appelant la form avec le dégradé, avec la méthode ShowDialog

[smyley]

Peut être ...
modifie le code comme ceci :

Code vb :

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
 
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 
 
   If Width < 1 OrElse Height < 1 Then
       Return
   End If
 
 
 
        Dim g = e.Graphics
 
        Using br As New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.White, Color.Black, LinearGradientMode.Horizontal)
 
            g.DrawString("Je n'aime pas VB !", New Font(Font.FontFamily, 30, FontStyle.Bold, GraphicsUnit.Pixel), br, 0, 0)
 
        End Using
 
        'clean up graphics object
        g.Dispose()
    End Sub

[Hobbi1]

Ca ne marche toujours pas

Pour rappel, je veux simplement ajouter un texte d'un label par dessus un dégradé généré dans une picturebox avec l'arrière plan du label transparent (pour ne pas cahcer le dégradé)

J'ai ca en surfant
http://msdn.microsoft.com/fr-fr/library/wk5b13s4.aspx

Mais je n'ai pas compris comment l'utiliser ?
Est-ce que ca pourrait être une solution ?

[smyley]

Pour rappel, je veux simplement ajouter un texte d'un label par dessus un dégradé généré dans une picturebox avec l'arrière plan du label transparent (pour ne pas cahcer le dégradé)

AHhhhhhh, le con, j'ai mal lu

Pour ton dégradé à priori tu sais faire (suffit de faire dans l'évènement Paint du formulaire ton g.FillRectangle).
Par contre pour mettre un label dessus ça marche pas il faut que tu fasses différemment. Une solution est de ne pas utiliser de label mais de rajouter un g.DrawString après ton g.FillRectangle.

[Hobbi1]

Hi hi ! Du tout. C'est sympa de m'aide
J'avais entraperçu le texte "Je n'aime pas VB" en dégradé gris pendant les tests avant que la form ne bloque

Pour ton dégradé à priori tu sais faire (suffit de faire dans l'évènement Paint du formulaire ton g.FillRectangle).

En fait, on ne peut pas dire que je maitrise. J'ai récupéré le code sur internet et j'essaye de le comprendre.
D'ailleurs, je l'ai recopié dans une 2e Form, en faisant a priori tout pareil, et là, même le dégradé ne marche plus dans la 2e form

J'ai mis le DrawString juste après le FillREctange comme ceci :

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
23
24
25
26
27
28
29
30
Dim g As Graphics = Me.PictureBox1.CreateGraphics
        g.SmoothingMode = SmoothingMode.AntiAlias
 
        Dim rect As Rectangle = New Rectangle(0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height)
        Dim blend As ColorBlend = New ColorBlend()
        'Add the Array of Color
        Dim bColors As Color() = New Color() {colorA, colorB}
        blend.Colors = bColors
 
        'Add the Array Single (0-1) colorpoints to place each Color
        Dim bPts As Single() = New Single() {0, 1.0}
        blend.Positions = bPts
 
        ' Create a LinearGradientBrush or PathGradientBrush depending on the BlendGradientType choice
        Using br As New LinearGradientBrush(rect, Color.White, Color.Black, gradientMode)
            'Blend the colors into the Brush
 
            br.InterpolationColors = blend
 
            'Fill the rect with the blend
 
            g.FillRectangle(br, rect)
            g.DrawString("COUCOU", Me.Font, Brushes.Black, 100, 100)
        End Using
 
 
 
        'clean up graphics object
 
        g.Dispose()

Et ca ne marche pas. Je n'ai aucun texte

[smyley]

Point par point (histoire d'être sur)
- J'ouvre VS, Nouveau projet WinForms VB.Net
- Form1 en mode design, évènements, double click sur l'évènement Paint, ce qui m'envoie vers

Code vb :

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

1
2
3
4
5
6
7
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 
    End Sub
End Class

- D'abord, le dégradé

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
 
        Dim br As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.Coral, Color.BurlyWood, LinearGradientMode.Vertical)
 
        g.FillRectangle(br, New Rectangle(0, 0, Width, Height))
 
        br.Dispose()
    End Sub
End Class

- Maintenant, il faut dessiner le texte

Code vb :

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
 
Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
 
        Dim br As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.Coral, Color.BurlyWood, LinearGradientMode.Vertical)
 
        g.FillRectangle(br, New Rectangle(0, 0, Width, Height))
 
        br.Dispose()
 
        g.DrawString("Je n'aime pas le VB !", Font, Brushes.Aquamarine, 15, 15)
    End Sub
End Class

Et c'est fini.

Maintenant on peux refaire la même chose en lançant la form en modal donc je rajoute un bouton, double click pour l'évènement et j'affiche la même form, ce qui donne :

Code vb :

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
 
Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
 
        Dim br As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.Coral, Color.BurlyWood, LinearGradientMode.Vertical)
 
        g.FillRectangle(br, New Rectangle(0, 0, Width, Height))
 
        br.Dispose()
 
        g.DrawString("Je n'aime pas le VB !", Font, Brushes.Aquamarine, 15, 15)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fx As Form1 = New Form1()
        fx.ShowDialog()
    End Sub
End Class

Et ça marche encore ...


Et pour finir, ne pas oublier de regarder le cours vb.net disponible sur dvp :
http://plasserre.developpez.com/cours/vb-net/

[Hobbi1]

Oui ça marche !
Impeccable

Merci beaucoup.