Halvendada värvi panel - (Gradient)

Seekord ma tahan näidata lihtne viis on palju atraktiivsemaks paneeli kalle 2 värve Visual Basic. net .

Näiteks on meil vaja vormis ja paneel, nagu näidatud järgmisel joonisel:

Siis topeltklõpsake panel ja minge värvige paneel ürituse koodi vaadata ja sel juhul pannakse järgmise koodi abil:

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim laius As Integer = Me.Width
 Dim kõrge As Integer = Me.Height
 Dim color1 Nagu Color
 Dim color2 Nagu Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim värvi New _
 LinearGradientBrush (_
 New Point (x, y), New Point (x + laius, y), _
 color1, color2)
 e.Graphics.FillRectangle (värvimine, _
 x, y, laius, kõrgus)
 y + = kõrgus + 10

Selle töö lisame koodi viide Drawing2D nagu näidatud allpool:

 Import System.Drawing.Drawing2D

Töötab programm peaks nägema vormi ilme sarnaneb järgmise joonisega:

Muutuvad väärtused muutujate color1 ja color2 saab muuta tulemusi oma maitse järgi.

Samuti tahan lahkuda siis paar varianti sündmuse kood reemplaar paneeli värv ja saada erinevaid tulemusi ... Ma loodan, et sa proovida neid ja nad tahavad ...

Variant 1

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim laius As Integer = Me.Width
 Dim kõrge As Integer = Me.Height
 Dim color1 Nagu Color
 Dim color2 Nagu Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim Nagu New _ black_white_brush
 LinearGradientBrush (_
 New Point (x, y), New Point (x + laius, y), _
 color1, color2)

 Dim Nagu 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, laius, kõrgus)

Variant 2

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim laius As Integer = Me.Width
 Dim kõrge As Integer = Me.Height
 Dim color1 Nagu Color
 Dim color2 Nagu Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim värvi New _
 LinearGradientBrush (_
 New Point (x, y), New Point (x + laius, y), _
 color1, color2)

 Dim Nagu New _ diag_brush
 LinearGradientBrush (_
 New Point (x, y), New Point (x + laius, y + kõrgus), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, laius, kõrgus)

Kui sul oli, siis jäta kommentaar. Regards