VB6 GDI+ 入门教程[3] 笔、刷子、矩形、椭圆绘制

http://vistaswx.com/blog/article/category/tutorial/page/2

VB6 GDI+ 入门教程[3] 笔、刷子、矩形、椭圆绘制

2009 年 6 月 18 日 3条评论

标签: AntiAlias,GdiPlus,vb 分类: Tutorial,VB6 GDI+

点击下载 vIstaswx VB6 Gdi+ 模块(最后更新 2011/2/8)

好，我们已经学会如何画线了，那么后面的事情只要变通下都可以解决。不过变通前我还是得说几个基本的东西。

1.绘制，填充一个矩形

绘制一个整型长度的矩形，我们要用到GdipDrawRectangleI和GdipFillRectangleI。前者用pen画一个轮廓边框，后者用brush刷出一个填充区域。当然接下来就是如何创建刷子的问题了。GDI+中有多种刷子，有纯色刷子（创建：GdipCreateSolidFill），有渐变刷子（创建：GdipCreateLineBrush），还有纹理刷子，贴图刷子，路径刷子等等…………它们用于不同的方面。

(1)绘制一个矩形边框

首先，我们需要一个pen。

第一步，Dim！当然，我这样写了：Dim pen As Long；

第二步，创建一个红色的pen（线的粗细是1px）：GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen。

pen创好了，接下来画矩形。这里我们用GdipDrawRectangleI来画矩形。画矩形跟画线可不一样，虽然指定坐标的都是4个参数，但是矩形里面四个参数分别是：X,Y,长,宽。OK，综合一下，代码如下：

Option Explicit   Dim graphics As Long Dim pen As Long   Private Sub Form_Load()     InitGDIPlus       GdipCreateFromHDC Me.hDC, graphics       GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen     GdipDrawRectangleI graphics, pen, 30, 30, 100, 100 End Sub   Private Sub Form_Unload(Cancel As Integer)     GdipDeletePen pen     GdipDeleteGraphics graphics '释放graphics占用的内存     TerminateGDIPlus End Sub

现在我们就绘制了一个100*100的红色矩形边框。很简单吧，变通就是这样的。

(2)创建纯色刷子

任何刷子包括其它的GDI+元素基本上都是一个思路：我们首先要Dim一个long型变量储存刷子/其它元素的地址，然后再调用GDI+相关函数去创建出指定刷子/其它元素。现在来创建一个蓝色，透明度为&HAA的刷子，那么代码就是这样：

Dim brush As Long GdipCreateSolidFill &HAA0000FF, brush

刷子就这样拿到了。当然不要忘记扫地工作：GdipDeleteBrush brush。

(3)用刷子填充一个矩形

很明显，函数里面找一下就会发现我们要的函数：GdipFillRectangleI。它与DrawRectangleI很类似，只不过把pen变成了brush，因为现在要刷上去嘛- -。这一步也是很好变通的。把前面的一翻整理之后我们得到了一个绘制矩形并填充（不如说先填充再画边框，至于原因你可以自己颠倒一下顺序看下结果）的代码（注意 填充色是有透明度的）：

Option Explicit   Dim graphics As Long Dim pen As Long, brush As Long   Private Sub Form_Load()     InitGDIPlus       GdipCreateFromHDC Me.hDC, graphics       GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen     GdipCreateSolidFill &HAA0000FF, brush       GdipFillRectangleI graphics, brush, 30, 30, 100, 100     GdipDrawRectangleI graphics, pen, 30, 30, 100, 100 End Sub   Private Sub Form_Unload(Cancel As Integer)     GdipDeletePen pen     GdipDeleteBrush brush     GdipDeleteGraphics graphics '释放graphics占用的内存     TerminateGDIPlus End Sub

一样很简单吧！GDI+就是那么简单，只要懂了它的“工作机制”~!

(4)渐变刷子

渐变色很Cool，纯VB代码却要很多，还好，GDI+有一个方便的渐变刷子函数——GdipCreateLineBrush。看参数，发现不一样：

Function GdipCreateLineBrush(Point1 As POINTF, Point2 As POINTF, Color1 As Long, Color2 As Long, WrapMode As WrapMode, LineGradient As Long) As GpStatus

虽然复杂。。不过又很容易理解：Point1是一个PointF结构，它储存了坐标的X,Y，代表起始位置——这是渐变的起始、中止位置。一般情况下我们的起始中止位置是和绘制的图形一致的。Point2一样，代表了终点。渐变就在这两个点中“展开”。注意，现在是坐标点，而不是长宽值。Color1自然就是起始颜色，Color2则是第二颜色。WrapMode就是填充方向，最后一个参数自然就是传回建立好的brush。

于是我们又开始写程序了，这次是创建一个蓝色->红色，纵向的刷子。绘制图形免去，如果想看效果请自己添加drawrectangle（如果还要使用point画矩形请注意啦，rectangle里面 后面参数是接受长宽，而刷子里面接受的是点……知道区别和解决方法了么？减呗！）。

Dim brush As Long Dim p1 As POINTF, p2 As POINTF p1.X = 0 p1.Y = 0 p2.X = 0 p2.Y = 100 GdipCreateLineBrush p1, p2, &HFF0000FF, &HFFFF0000, WrapModeTileFlipy, brush

2.绘制椭圆

椭圆，想想也不会跟rectangle画法相差到哪里去。事实的确如此。下面就是一个绘制渐变椭圆的代码，解释免了吧，应该是很容易理解的。

Option Explicit   Dim graphics As Long Dim brush As Long   Private Sub Form_Load()     InitGDIPlus       GdipCreateFromHDC Me.hDC, graphics       Dim p1 As POINTF, p2 As POINTF     p1.X = 10     p1.Y = 10     p2.X = 100     p2.Y = 50       GdipCreateLineBrush p1, p2, &H8AFF00FF, &HFFFF0000, WrapModeTileFlipXY, brush     GdipFillEllipseI graphics, brush, p1.X, p1.Y, p2.X - p1.X, p2.Y - p1.X '注意：类似的，绘制椭圆边框的语句是GdipDrawEllipseI End Sub   Private Sub Form_Unload(Cancel As Integer)     GdipDeleteBrush brush     GdipDeleteGraphics graphics '释放graphics占用的内存       TerminateGDIPlus End Sub

3.反锯齿功能

不知你有没有发现，画出来的椭圆是很不圆滑的（虽然用VB自己绘制也是如此）。如此强大的GDI+怎么可能没有圆滑的功能呢？有！函数是GdipSetSmoothingMode。我们需要把它加在绘制内容之前。一般我们把它加在创建好graphics之后（注意：它是作用于graphics的，因此请不要还没初始化graphics就设置graphics的光滑属性- -）。经过一翻调整，我们得出了一个设置圆滑的语句：

GdipSetSmoothingMode graphics,SmoothingModeAntiAlias

模式自然要设置成AntiAlias，AntiAlias顾名思义就是反锯齿(消除锯齿)。现在我们把这句话加到前面的椭圆程序中去，运行，如何，椭圆很光滑吧！同样，前面任何一个程序都可以这样加使gdi+画出来的东西看上去很平滑（为什么有人说是变模糊了呢= =、百思不得其解中…）。