Pogorszyć panelu Kolor - (Gradient)

Tym razem chcę pokazać w prosty sposób mają o wiele bardziej atrakcyjny panel z gradientem dwóch kolorów w Visual Basic. netto .

Na przykład musimy postać i panel, jak pokazano na poniższym rysunku:

Następnie kliknij dwukrotnie panel i przejść do malowania panelu wydarzenie w widoku kodu, a to zdarzenie umieścić następujący kod:

 Dim r As Integer = 0
 Dim x As Integer = 0
 Dim width As Integer znaku = Me.Width
 Dim As Integer wysokiej znaku = Me.Height
 Dim kolor1 jak kolor
 Dim color2 jak kolor

 kolor1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim kolor jako Nowy _
 LinearGradientBrush (_
 Nowy pkt (x, y), nowy punkt (x szerokość +, y), _
 kolor1, color2)
 e.Graphics.FillRectangle (kolorystyka, _
 x, y, szerokość, wysokość)
 y + = wysokość + 10

Dla tej pracy dodajemy Kod referencyjny Drawing2D jak pokazano poniżej:

 Import System.Drawing.Drawing2D

Uruchomienie programu powinien zobaczyć formularz z wyglądać podobnie do następującej postaci:

Zmiana wartości zmiennych Kolor1 i color2 może zmienić wyniki do własnych upodobań.

Również chcę zostawić następnie kilka wariantów do kodu zdarzenia reemplaar farby panelu i uzyskać różne wyniki ... Mam nadzieję, spróbuj je i lubią ...

Opcja 1

 Dim r As Integer = 0
 Dim x As Integer = 0
 Dim width As Integer znaku = Me.Width
 Dim As Integer wysokiej znaku = Me.Height
 Dim kolor1 jak kolor
 Dim color2 jak kolor

 kolor1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim As New _ black_white_brush
 LinearGradientBrush (_
 Nowy pkt (x, y), nowy punkt (x szerokość +, y), _
 kolor1, color2)

 Dim As New ColorBlend color_blend (3)
 color_blend.Colors = Kolor New () {kolor1, color2, kolor1}
 color_blend.Positions = Pojedynczy New () {0,0, 0,2, 1,0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, szerokość, wysokość)

Opcja 2

 Dim r As Integer = 0
 Dim x As Integer = 0
 Dim width As Integer znaku = Me.Width
 Dim As Integer wysokiej znaku = Me.Height
 Dim kolor1 jak kolor
 Dim color2 jak kolor

 kolor1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim kolor jako Nowy _
 LinearGradientBrush (_
 Nowy pkt (x, y), nowy punkt (x szerokość +, y), _
 kolor1, color2)

 Dim As New _ diag_brush
 LinearGradientBrush (_
 Nowy pkt (x, y), nowy punkt (x + szerokość, y + wysokość), _
 kolor1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, szerokość, wysokość)

Jeśli był, proszę zostawić komentarz. Pozdrawiam