Degradoj panel me ngjyra - (Gradient)

Këtë herë unë dua të tregoj një mënyrë e thjeshtë për të pasur një trup shumë më tërheqëse me një pjerrësi prej dy ngjyrave në Visual Basic. neto .

Për shembull ne kemi nevojë për një formular dhe një panel, siç tregohet në figurën e mëposhtme:

Ne pastaj të klikoni dy herë në panel dhe të shkojnë për të pikturuar ngjarjen panel në pikëpamje kodit, dhe kjo ngjarje vendos kodin e mëposhtëm:

 Dim y Si Integer = 0
 X dim Si Integer = 0
 Gjerësia Dim Si Integer = Hap Me.Width
 Lartë Dim Si Integer = Hap Me.Height
 Color1 Dim si ngjyra
 Color2 Dim si ngjyra

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Ngjyra e Dim si të reja _
 LinearGradientBrush (_
 Pika e re (x, y), pikë e re (x + width, y), _
 color1, color2)
 e.Graphics.FillRectangle (për t'u ngjyrosur, _
 x, y, gjerësi, lartësi)
 y + + = lartësi 10

Për këtë punë ne kemi shtuar një referencë kodin Drawing2D treguar si më poshtë:

 Importet System.Drawing.Drawing2D

Drejtimin e programit duhet të shihni një formë me një look të ngjashme me figurën e mëposhtme:

Ndryshimi vlerat e variablave color1 dhe color2 mund të ndryshojë rezultatet pëlqen tuaj.

Gjithashtu dua të largohem, atëherë një çift të varianteve për bojë kodin ngjarje reemplaar panel dhe për të marrë rezultate të ndryshme ... Unë shpresoj se ju provoni ato dhe ata si ...

Opsioni 1

 Dim y Si Integer = 0
 X dim Si Integer = 0
 Gjerësia Dim Si Integer = Hap Me.Width
 Lartë Dim Si Integer = Hap Me.Height
 Color1 Dim si ngjyra
 Color2 Dim si ngjyra

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim Sa Nju _ black_white_brush
 LinearGradientBrush (_
 Pika e re (x, y), pikë e re (x + width, y), _
 color1, color2)

 Dim Sa Nju ColorBlend color_blend (3)
 color_blend.Colors = Ngjyra e Re () {color1, color2, color1}
 color_blend.Positions = Beqar New () {0.0, 0.2, 1.0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, gjerësi, lartësi)

Opsioni 2

 Dim y Si Integer = 0
 X dim Si Integer = 0
 Gjerësia Dim Si Integer = Hap Me.Width
 Lartë Dim Si Integer = Hap Me.Height
 Color1 Dim si ngjyra
 Color2 Dim si ngjyra

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Ngjyra e Dim si të reja _
 LinearGradientBrush (_
 Pika e re (x, y), pikë e re (x + width, y), _
 color1, color2)

 Dim Sa Nju _ diag_brush
 LinearGradientBrush (_
 Pika e re (x, y), pikë e re (x + gjerësi, lartësi y +) _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, gjerësi, lartësi)

Nëse ju shërbyer, ju lutem të lënë një koment. Të fala