Objectif
Obtenir un dégradé comme arrière plan pour une fenêtre.
Méthode
Il suffit de modifier la fonction de l’événement OnPaint de la fenêtre concernée.
Par exemple pour obtenir un dégradé horizontal :
Imports System.Drawing.Drawing2D
...
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim formGraphics As Graphics = e.Graphics
Dim gradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(Width, 0), Color.White, Color.DarkMagenta)
formGraphics.FillRectangle(gradientBrush, ClientRectangle)
End Sub
...
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim formGraphics As Graphics = e.Graphics
Dim gradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(Width, 0), Color.White, Color.DarkMagenta)
formGraphics.FillRectangle(gradientBrush, ClientRectangle)
End Sub