Ослабить цвет панели - (Градиент)

На этот раз я хочу показать простой способ иметь гораздо более привлекательным панели с градиентом из двух цветов в Visual Basic. NET .

Например, мы нуждаемся в форме и панели, как показано на следующем рисунке:

Затем дважды щелкните на панели и идти рисовать панели событий в представлении кода, и это событие вставьте следующий код:

 Dim у As Integer = 0
 Dim X As Integer = 0
 Dim ширина As Integer = Me.Width
 Dim высокой As Integer = Me.Height
 Dim color1 как цвет
 Dim color2 как цвет

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim цвета в качестве новой _
 LinearGradientBrush (_
 Новая точка (х, у), Нью-Point (ширина х + у), _
 цвет1, цвет2)
 e.Graphics.FillRectangle (окраска, _
 х, у, ширина, высота)
 + у = высота + 10

За эту работу мы добавим код ссылки Drawing2D как показано ниже:

 Импорт System.Drawing.Drawing2D

Запуск программы должны увидеть форму с видом похож на следующем рисунке:

Изменение значений переменных и color1 color2 может изменить результаты по своему вкусу.

Также я хочу оставить, то пару вариантов reemplaar событие краской панели код и получить разные результаты ... Я надеюсь, что вы пытаетесь их, и они нравятся ...

Вариант 1

 Dim у As Integer = 0
 Dim X As Integer = 0
 Dim ширина As Integer = Me.Width
 Dim высокой As Integer = Me.Height
 Dim color1 как цвет
 Dim color2 как цвет

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim As New _ black_white_brush
 LinearGradientBrush (_
 Новая точка (х, у), Нью-Point (ширина х + у), _
 цвет1, цвет2)

 Dim As New ColorBlend color_blend (3)
 color_blend.Colors = Новый Цвет () {цвет1, цвет2, color1}
 color_blend.Positions = New Single () {0.0, 0.2, 1.0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 х, у, ширина, высота)

Вариант 2

 Dim у As Integer = 0
 Dim X As Integer = 0
 Dim ширина As Integer = Me.Width
 Dim высокой As Integer = Me.Height
 Dim color1 как цвет
 Dim color2 как цвет

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim цвета в качестве новой _
 LinearGradientBrush (_
 Новая точка (х, у), Нью-Point (ширина х + у), _
 цвет1, цвет2)

 Dim As New _ diag_brush
 LinearGradientBrush (_
 Новая точка (х, у), Нью-Point (ширина х + у + высота), _
 цвет1, цвет2)
 e.Graphics.FillRectangle (diag_brush, _
 х, у, ширина, высота)

Если вы служили, пожалуйста, оставьте комментарий. С уважением