Làm suy giảm của bảng điều khiển màu sắc - (Gradient)

Thời gian này tôi muốn hiển thị một cách đơn giản để có một bảng điều khiển hấp dẫn hơn nhiều với một màu của hai màu sắc trong hình ảnh cơ bản. net .

Ví dụ, chúng ta cần một hình thức và bảng điều khiển, như trong hình sau đây:

Chúng tôi sau đó kích đúp vào bảng điều khiển và đi sơn sự kiện của bảng điều khiển trong chế độ xem mã, và sự kiện này đặt đoạn code sau đây:

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim chiều rộng Như Integer = Me.Width
 Dim cao As Integer = Me.Height
 Dim color1 Như Color
 Dim color2 Như Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Màu Dim As New _
 LinearGradientBrush (_
 New Point (x, y), New Point (x + chiều rộng, y), _
 color1, color2)
 e.Graphics.FillRectangle (màu, _
 x, y, chiều rộng, chiều cao)
 y + = chiều cao + 10

Đối với công việc này, chúng ta thêm một tài liệu tham khảo mã Drawing2D như hình dưới đây:

 Nhập khẩu System.Drawing.Drawing2D

Chạy chương trình sẽ thấy một hình thức với một cái nhìn tương tự như hình sau đây:

Thay đổi giá trị của các biến color1 và color2 có thể thay đổi kết quả theo ý thích của bạn.

Ngoài ra tôi muốn để lại sau đó một vài biến thể sơn bảng reemplaar mã sự kiện và nhận được kết quả khác nhau ... Tôi hy vọng bạn cố gắng và họ thích ...

Lựa chọn 1

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim chiều rộng Như Integer = Me.Width
 Dim cao As Integer = Me.Height
 Dim color1 Như Color
 Dim color2 Như Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim Như New _ black_white_brush
 LinearGradientBrush (_
 New Point (x, y), New Point (x + chiều rộng, y), _
 color1, color2)

 Dim Khi ColorBlend color_blend (3)
 color_blend.Colors = New Color () {color1, color2, color1}
 color_blend.Positions = New đơn () {0,0, 0,2, 1,0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, chiều rộng, chiều cao)

Lựa chọn 2

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim chiều rộng Như Integer = Me.Width
 Dim cao As Integer = Me.Height
 Dim color1 Như Color
 Dim color2 Như Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Màu Dim As New _
 LinearGradientBrush (_
 New Point (x, y), New Point (x + chiều rộng, y), _
 color1, color2)

 Dim Như New _ diag_brush
 LinearGradientBrush (_
 New Point (x, y), New Point (x + chiều rộng, y + chiều cao), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, chiều rộng, chiều cao)

Nếu bạn đã được phục vụ, xin vui lòng để lại một bình luận. Kính trọng