降低彩色面板- （梯度）

這一次，我想說明一個簡單的方法有兩種顏色的漸變更具有吸引力面板的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，寬，高）

如果您送達，請留下評論。 問候