VB6 GDI+ 入门教程（3）——笔、刷子、矩形、椭圆绘制

概述版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明 http://vistaswx.blogbus.com/logs/37207407.html   好，我们已经学会如何画线了，那么后面的事情只要变通下都可以解决。不过变通前我还是得说几个基本的东西。 1.绘制，填充一个矩形 绘制一个整型长度的矩形，我们要用到GdipDrawRectangleI和GdipFillRectangleI。

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://vistaswx.blogbus.com/logs/37207407.html

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

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 ExplicitDim graphics As LongDim pen As LongPrivate Sub Form_Load()     InitGDIPlus     GdipCreateFromHDC Me.hDC,graphics      GdipCreatePen1 &HFFFF0000,pen     GdipDrawRectangleI graphics,pen,30,100,100 End SubPrivate 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 LongGdipCreateSolIDFill &HAA0000FF,brush

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

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

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

Option ExplicitDim graphics As LongDim pen As Long,brush As Long     Private Sub Form_Load()     InitGDIPlus           GdipCreateFromHDC Me.hDC,graphics     GdipCreatePen1 &HFFFF0000,pen     GdipCreateSolIDFill &HAA0000FF,brush           GdipFillRectangleI graphics,brush,100     GdipDrawRectangleI graphics,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 LongDim 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 ExplicitDim graphics As LongDim brush As LongPrivate 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,&H8AFF00FF,WrapModeTileFlipXY,brush      GdipFillEllipseI graphics,p1.X,p1.Y,p2.X - p1.X,p2.Y - p1.X '注意：类似的，绘制椭圆边框的语句是GdipDrawEllipseI End SubPrivate Sub Form_Unload(Cancel As Integer)     GdipDeleteBrush brush     GdipDeleteGraphics graphics '释放graphics占用的内存     TerminateGDIPlus End Sub

@H_403_159@3.反锯齿功能

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

GdipSetSmoothingMode graphics,SmoothingModeAntiAlias

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

总结

以上是内存溢出为你收集整理的VB6 GDI+ 入门教程（3）——笔、刷子、矩形、椭圆绘制全部内容，希望文章能够帮你解决VB6 GDI+ 入门教程（3）——笔、刷子、矩形、椭圆绘制所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。