降低彩色面板- （梯度）

这一次，我想说明一个简单的方法有两种颜色的渐变更具有吸引力面板的Visual Basic。净 。

例如，我们需要的形式和面板，如下图所示：

然后我们双击单击面板和去画在代码视图面板事件，这个事件把下面的代码：

昏暗Ÿ整数= 0
作为DIM x的整数= 0
昏暗的宽度为整数= Me.Width
昏暗高作为整数= Me.Height
色彩暗淡COLOR1
色彩暗淡COLOR2

 COLOR1 = Color.DarkRed
 COLOR2 = Color.LightCoral

暗淡的颜色作为新_
的LinearGradientBrush（_
新的点（X，Y），新的点（X +宽度，Y），
 COLOR1，COLOR2）
 e.Graphics.FillRectangle（着色，_
 X，Y，宽，高）
 Y + =身高+10

对于这项工作，我们添加一个代码的参考Drawing2D如下所示：

进口System.Drawing.Drawing2D

运行程序，应该可以看到类似下图看看形式：

变化的变量COLOR1和COLOR2值，可以根据自己的喜好改变结果。

我也想离开的事件代码reemplaar面板的油漆几个变种，并得到不同的结果......我希望你尝试他们和他们喜欢的...

选项​​1

昏暗Ÿ整数= 0
作为DIM x的整数= 0
昏暗的宽度为整数= Me.Width
昏暗高作为整数= Me.Height
色彩暗淡COLOR1
色彩暗淡COLOR2

 COLOR1 = Color.DarkRed
 COLOR2 = Color.LightCoral

新建“_ black_white_brush暗淡
的LinearGradientBrush（_
新的点（X，Y），新的点（X +宽度，Y），
 COLOR1，COLOR2）

暗淡作为，新ColorBlend color_blend（三）
 color_blend.Colors =新色（）{COLOR1，COLOR2，COLOR1}
 color_blend.Positions =新单（）{0.0，0.2，1.0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle（black_white_brush，_
 X，Y，宽，高）

选项​​2

昏暗Ÿ整数= 0
作为DIM x的整数= 0
昏暗的宽度为整数= Me.Width
昏暗高作为整数= Me.Height
色彩暗淡COLOR1
色彩暗淡COLOR2

 COLOR1 = Color.DarkRed
 COLOR2 = Color.LightCoral

暗淡的颜色作为新_
的LinearGradientBrush（_
新的点（X，Y），新的点（X +宽度，Y），
 COLOR1，COLOR2）

新建“_ diag_brush暗淡
的LinearGradientBrush（_
新的点（X，Y），新的点（X +宽度，Y +高），
 COLOR1，COLOR2）
 e.Graphics.FillRectangle（diag_brush，_
 X，Y，宽，高）

如果您送达，请留下评论。 问候