Degradácii farieb panel - (Gradient)

Tentoraz chcem ukázať jednoduchý spôsob, ako mať oveľa atraktívnejšie panel s prechodom dvoch farieb v jazyku Visual Basic. net .

Napríklad potrebujeme formulár a panel, ako je znázornené na nasledujúcom obrázku:

Potom dvakrát kliknite na panel a ísť maľovať panelu udalosť v zobrazení kódu, a táto udalosť vložte nasledujúci kód:

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim šírka As Integer = Me.Width
 Dim vysoká As Integer = Me.Height
 Dim color1 ako farba
 Dim color2 ako farba

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim farby ako nové _
 LinearGradientBrush (_
 Nový bod (x, y), New Point (x + šírka, y), _
 color1, color2)
 e.Graphics.FillRectangle (sfarbenie, _
 x, y, šírka, výška)
 y + = výška + 10

Pre túto prácu sme pridať kód odkaz Drawing2D ako je uvedené nižšie:

 Dovoz System.Drawing.Drawing2D

Spustenie programu by mala vidieť formulár s podobať nasledujúcom obrázku:

Zmena hodnôt premenných color1 a color2 môže zmeniť výsledky podľa vašich predstáv.

Tiež chcem odísť a potom niekoľko variantov pre reemplaar kód udalosti panelu farieb a získať rôzne výsledky ... dúfam, že vyskúšať si ich a radi ...

Možnosť 1

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim šírka As Integer = Me.Width
 Dim vysoká As Integer = Me.Height
 Dim color1 ako farba
 Dim color2 ako farba

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim ako novú _ black_white_brush
 LinearGradientBrush (_
 Nový bod (x, y), New Point (x + šírka, y), _
 color1, color2)

 Dim ako novú ColorBlend color_blend odsek 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, šírka, výška)

Možnosť 2

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim šírka As Integer = Me.Width
 Dim vysoká As Integer = Me.Height
 Dim color1 ako farba
 Dim color2 ako farba

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim farby ako nové _
 LinearGradientBrush (_
 Nový bod (x, y), New Point (x + šírka, y), _
 color1, color2)

 Dim ako novú _ diag_brush
 LinearGradientBrush (_
 Nový bod (x, y), New Point (x + šírka, y + výška), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, šírka, výška)

Ak ste slúžil, prosím, napísať komentár. S pozdravom