Dégrader la couleur du panneau - (Gradient)

Cette fois je veux montrer une façon simple d'avoir un panel beaucoup plus attrayant avec un gradient de deux couleurs dans Visual Basic. NET .

Par exemple il nous faut une forme et un panneau, comme indiqué dans la figure suivante:

Nous avons ensuite double-cliquez sur le panneau et aller peindre l'événement panneau dans la fenêtre de code, et cet événement mis le code suivant:

 Dim y As Integer = 0
 Dim x As Integer = 0
 Largeur As Integer = Me.Width
 Dim haute As Integer = Me.Height
 Color1 As couleur
 Color2 As couleur

 color1 = Color.DarkRed
 couleur2 = Color.LightCoral

 Couleur As New _
 LinearGradientBrush (_
 Nouveau point (x, y), nouveau point (x + width, y), _
 color1, color2)
 e.Graphics.FillRectangle (coloration, _
 x, y, largeur, hauteur)
 y + = hauteur + 10

Pour ce travail, nous ajoutons une référence de code Drawing2D comme indiqué ci-dessous:

 Les importations System.Drawing.Drawing2D

Exécution du programme devriez voir un formulaire avec un regard semblable à la figure suivante:

Modification des valeurs des variables color1 et color2 peut modifier les résultats à votre goût.

Aussi je veux quitter puis un couple de variantes pour la peinture événement code du panneau reemplaar et obtenir des résultats différents ... J'espère que vous les essayez et ils aiment ...

Option 1

 Dim y As Integer = 0
 Dim x As Integer = 0
 Largeur As Integer = Me.Width
 Dim haute As Integer = Me.Height
 Color1 As couleur
 Color2 As couleur

 color1 = Color.DarkRed
 couleur2 = Color.LightCoral

 As New _ black_white_brush
 LinearGradientBrush (_
 Nouveau point (x, y), nouveau point (x + width, y), _
 color1, color2)

 As New ColorBlend color_blend (3)
 color_blend.Colors = new Color () {color1, color2, color1}
 color_blend.Positions = New Single () {0,0, 0,2, 1,0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, largeur, hauteur)

Option 2

 Dim y As Integer = 0
 Dim x As Integer = 0
 Largeur As Integer = Me.Width
 Dim haute As Integer = Me.Height
 Color1 As couleur
 Color2 As couleur

 color1 = Color.DarkRed
 couleur2 = Color.LightCoral

 Couleur As New _
 LinearGradientBrush (_
 Nouveau point (x, y), nouveau point (x + width, y), _
 color1, color2)

 As New _ diag_brush
 LinearGradientBrush (_
 Nouveau point (x, y), nouveau point (x + largeur, y + hauteur), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, largeur, hauteur)

Si vous avez servi, s'il vous plaît laissez un commentaire. Cordialement