[求助]多色渐变的问题

Alibabar 2014-12-11 06:47:19

请教一下如图的多色渐变怎样设置渐变画笔绘制

...全文

130 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

Alibabar 2014-12-11

打赏
举报

Private Sub Btn_Test_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Test.Click Dim LBrush As LinearGradientBrush Dim Bmp As Bitmap Dim Grp As Graphics Dim Blend As ColorBlend LBrush = New LinearGradientBrush(New Rectangle(0, 0, Pic_Test.Width, Pic_Test.Height), Color.Red, Color.Blue, LinearGradientMode.Horizontal) '随便什么烂颜色创建一个画笔,重要的是区域和渐变方向 Blend = New ColorBlend(4) Blend.Colors = New Color() {Color.Red, Color.Green, Color.Yellow, Color.Blue} '指定颜色 Blend.Positions = New Single() {0, 0.25F, 0.5F, 1.0F} '指定百分比位置 LBrush.InterpolationColors = Blend Bmp = New Bitmap(Pic_Test.Width, Pic_Test.Height) Grp = Graphics.FromImage(Bmp) Grp.FillRectangle(LBrush, New Rectangle(0, 0, Pic_Test.Width, Pic_Test.Height)) LBrush.Dispose() Grp.Dispose() Pic_Test.BackgroundImage = Bmp End Sub 自我了断吧