[VB.Net] [WinForm] Arrière plan en dégradé dans une form

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

Laisser un commentaire