【跟风】GDI+放射渐变

图1：http://pan.baidu.com/s/1i30GVi9
图3：http://pan.baidu.com/s/1c0Eyp8W
综合实例：http://pan.baidu.com/s/1dDud1uT
GDI+模块http://pan.baidu.com/s/1dDk7Mxj （链接偷的）
然后是一些链 接

首先先把窗体的ScaleMode设置为3
然后初始化GDI+，创建画布，扫地
最上面的变量后面会有用
Option Explicit
Dim G As Long, Path As Long, Brush As Long
Dim Colors(2) As Long, Pos(2) As Single '颜色，颜色位置（0-1）
Private Sub Form_Load()
InitGDIPlus
GdipCreateFromHDC Me.hdc, G
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeleteGraphics G
TerminateGDIPlus
End Sub
现在的效果是这样的

创建了画刷还得给他颜色
GdipSetPathGradientPresetBlend 函数的定义是这样的
Public Declare Function GdipSetPathGradientPresetBlend Lib "gdiplus" (ByVal Brush As Long, blend As Long, positions As Single, ByVal count As Long) As GpStatus
Brush参数就是要设置颜色的画刷
Blend参数是要设置的颜色数组
positions 是每个颜色最浓的位置，最大是1，最小是0，比如红色的位置是0，那红色就在在最左端，绿色位置是1，那绿色在最右端，黄色是0.5，那黄色在中间
positions 数组必须是升序，否则画不出来
count是颜色的总数
Form_Click加入
Colors(0) = &H0 '设置颜色
Pos(0) = 0 '设置位置
Colors(1) = ARGB(255, 0, 0, 0) '设置颜色
Pos(1) = 0.2 '设置位置
Colors(2) = &HFF000000 '设置颜色
Pos(2) = 1 '设置位置
GdipSetPathGradientPresetBlend Brush, Colors(0), Pos(0), UBound(Colors) + 1 '给渐变画刷设定颜色
Colors数组是渐变的颜色，Pos数组是各个颜色的位置，渐变两端的位置是0和1

另外GdipSetPathGradientCenterPoint 可以设置渐变中心点
可以在Form_Click中加入此函数来设置渐变中心
GdipSetPathGradientCenterPoint Brush, NewPointF(50, 50)
此时画刷已经设置完成了，就差画出来了
现在在Form_Click加入
GdipFillRectangleI G, Brush, 0, 0, Me.ScaleWidth, Me.ScaleHeight'画出渐变

完整代码
Option Explicit
Dim G As Long, Path As Long, Brush As Long
Dim Colors(2) As Long, Pos(2) As Single '颜色，颜色位置（0-1）
Private Sub Form_Load()
InitGDIPlus
GdipCreateFromHDC Me.hdc, G
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeletePath Path '删除路径
GdipDeleteBrush Brush '删除画刷
GdipDeleteGraphics G
TerminateGDIPlus
End Sub
Private Sub Form_Click()
GdipCreatePath FillModeWinding, Path '创建路径
GdipAddPathEllipseI Path, 10, 10, 200, 200 '添加圆形路径
GdipCreatePathGradientFromPath Path, Brush '根据路径创建渐变画刷
Colors(0) = &H0 '设置颜色
Pos(0) = 0 '设置位置
Colors(1) = &HFF000000 '设置颜色
Pos(1) = 0.2 '设置位置
Colors(2) = &HFF3399FF '设置颜色
Pos(2) = 1 '设置位置
GdipSetPathGradientPresetBlend Brush, Colors(0), Pos(0), UBound(Colors) + 1 '给渐变画刷设定颜色
GdipSetPathGradientCenterPoint Brush, NewPointF(50, 50) '设置中心点，默认是以图形中心为中心
GdipFillRectangleI G, Brush, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
然后运行，点击窗体

第三张图是设置颜色是换了个函数GdipSetPathGradientSurroundColorsWithCount
2L的第二个链接是例子

我突然想用vb原生绘图跟风我是原生绘图大师（虽说原生效率很低，其实是我懒得用api，api太难看懂了，倒不如自己写算法）