Degradēt krāsu paneli - (Gradients)

Šoreiz es gribu parādīt vienkāršu veidu, lai būtu daudz pievilcīgāku panelis ar slīpumā divu krāsu Visual Basic. net .

Piemēram mums ir nepieciešama forma un panelis, kā parādīts nākamajā attēlā:

Mēs pēc tam veiciet dubultklikšķi uz paneli un iet krāsot paneļa notikumu kodu skats, un šis notikums nodot šādu kodu:

 Dim y kā Integer = 0
 Dim x As Integer = 0
 Dim platums Kā Integer = Me.Width
 Dim augsts kā Integer = Me.Height
 Dim color1 kā krāsa
 Dim color2 kā krāsa

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim krāsa kā jauns _
 LinearGradientBrush (_
 Jauns punkts (x, y), Jaunā punkts (x + platums, y), _
 color1, color2)
 e.Graphics.FillRectangle (krāsošana, _
 x, y, platums, augstums)
 y + = augstums + 10

Par šo darbu mēs pievienojam kodu atsauci Drawing2D kā parādīts zemāk:

 Imports System.Drawing.Drawing2D

Programmas izpildei vajadzētu redzēt formu ar izskatu, kas līdzīgs attēlā:

Mainot vērtības mainīgajiem color1 un color2 var mainīt rezultātus, lai jūsu patikas.

Arī es gribētu aizbraukt, tad pāris variantu Pasākumam kodu reemplaar paneļa krāsu un iegūt dažādus rezultātus ... Es ceru, ka jūs mēģināt viņiem un viņiem patīk ...

Variants 1

 Dim y kā Integer = 0
 Dim x As Integer = 0
 Dim platums Kā Integer = Me.Width
 Dim augsts kā Integer = Me.Height
 Dim color1 kā krāsa
 Dim color2 kā krāsa

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim kā jaunam _ black_white_brush
 LinearGradientBrush (_
 Jauns punkts (x, y), Jaunā punkts (x + platums, y), _
 color1, color2)

 Dim kā jaunam ColorBlend color_blend panta 3)
 color_blend.Colors = Jauna krāsa () {color1, color2, color1}
 color_blend.Positions = Jauns Single () {0,0, 0,2, 1,0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, platums, augstums)

Variants 2

 Dim y kā Integer = 0
 Dim x As Integer = 0
 Dim platums Kā Integer = Me.Width
 Dim augsts kā Integer = Me.Height
 Dim color1 kā krāsa
 Dim color2 kā krāsa

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim krāsa kā jauns _
 LinearGradientBrush (_
 Jauns punkts (x, y), Jaunā punkts (x + platums, y), _
 color1, color2)

 Dim kā jaunam _ diag_brush
 LinearGradientBrush (_
 Jauns punkts (x, y), Jaunā punkts (x + platums, y + augstums), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, platums, augstums)

Ja jums pasniedz, lūdzu atstājiet komentāru. Sveicieni