Jiddegrada bord kulur - (gradjent)

Din id-darba nixtieq li juru mod sempliċi li jkollhom bord ħafna aktar attraenti bil-pendil ta 'żewġ kuluri fil bażiku viżwali. nett .

Per eżempju għandna bżonn, f'forma u bord, kif muri fil-figura li ġejja:

Aħna mbagħad ikklikkja darbtejn fuq il-panel u mur żebgħa-avveniment panel fil-fehma kodiċi, u dan l-avveniment tpoġġi l-kodiċi li ġej:

 Y DIM Kif Integer = 0
 X dim Bħala Integer = 0
 Wisa DIM Kif Integer = Me.Width
 Għolja DIM Kif Integer = Me.Height
 Color1 DIM Kif Kulur
 Color2 DIM Kif Kulur

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Kulur DIM Kif New _
 LinearGradientBrush (_
 Punt ġdid (x, y), punt ġdid (x + wisa ', y), _
 color1, color2)
 e.Graphics.FillRectangle (kulur, _
 x, y, wisa 'u għoli)
 y + = l-għoli + 10

Għal dan ix-xogħol aħna żid referenza kodiċi Drawing2D kif muri hawn taħt:

 Importazzjonijiet System.Drawing.Drawing2D

Tmexxija tal-programm għandek tara forma bil-ħarsa simili għall-figura li ġejja:

Nibdlu l-valuri tal-varjabbli color1 u color2 jistgħu jbiddlu r-riżultati Predisposizzjoni tiegħek.

Ukoll nixtieq li jħallu allura ftit varjanti għall-żebgħa kodiċi avveniment bord reemplaar u tikseb riżultati differenti ... Nispera li jippruvawhom u huma simili ...

Għażla 1

 Y DIM Kif Integer = 0
 X dim Bħala Integer = 0
 Wisa DIM Kif Integer = Me.Width
 Għolja DIM Kif Integer = Me.Height
 Color1 DIM Kif Kulur
 Color2 DIM Kif Kulur

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim Kif New _ black_white_brush
 LinearGradientBrush (_
 Punt ġdid (x, y), punt ġdid (x + wisa ', y), _
 color1, color2)

 Dim Kif New ColorBlend color_blend (3)
 color_blend.Colors = Kulur Ġdid () {color1, color2, color1}
 color_blend.Positions = image Ġdid () {0.0, 0.2, 1.0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, wisa 'u għoli)

Għażla 2

 Y DIM Kif Integer = 0
 X dim Bħala Integer = 0
 Wisa DIM Kif Integer = Me.Width
 Għolja DIM Kif Integer = Me.Height
 Color1 DIM Kif Kulur
 Color2 DIM Kif Kulur

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Kulur DIM Kif New _
 LinearGradientBrush (_
 Punt ġdid (x, y), punt ġdid (x + wisa ', y), _
 color1, color2)

 Dim Kif New _ diag_brush
 LinearGradientBrush (_
 Punt ġdid (x, y), punt ġdid (x + wisa ', y + għoli), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, wisa 'u għoli)

Jekk inti serva, jekk jogħġbok leave kumment. Iqis