VB6_GDI+_入门教程.pdf-资料库

qq_30466541-8980107-4744302543001685717.pdf-第1页.png

第1页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第2页.png

第2页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第3页.png

第3页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第4页.png

第4页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第5页.png

第5页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第6页.png

第6页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第7页.png

第7页 / 共50页

qq_30466541-8980107-4744302543001685717.pdf-第8页.png

第8页 / 共50页

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. http://vistaswx.blogbus.com VB6 GDI+ 入门教程[1] GDI+介绍引言：鉴于网上关于 GDI+的教程都是.Net 的，基本上没有 VB6.0 的，而这方面又很多人有需要，所以我就写一个 Visual Basic 6 GDI+ 入门教程。目标人群：所有能够较熟练使用 VB 的，对 GDI+感兴趣或有 GDI+编程需要的人。 1. What's GDI+ 官方解释：GDI+是 Windows XP 中的一个子系统，它主要负责在显示屏幕和打印设备输出有关信息，它是一组通过 C++类实现的应用程序编程接口。顾名思义，GDI+是以前版本 GDI 的继承者，出于兼容性考虑，Windows XP 仍然支持以前版本的 GDI，但是在开发新应用程序的时候，开发人员为了满足图形输出需要应该使用 GDI+，因为 GDI+对以前的 Windows 版本中 GDI 进行了优化，并添加了许多新的功能。作为图形设备接口的 GDI+使得应用程序开发人员在输出屏幕和打印机信息的时候无需考虑具体显示设备的细节，他们只需调用 GDI+库输出的类的一些方法即可完成图形操作，真正的绘图工作由这些方法交给特定的设备驱动程序来完成，GDI+使得图形硬件和应用程序相互隔离，从而使开发人员编写设备无关的应用程序变得非常容易。我的解释：GDI+其实就是一个绘图模块，用于在屏幕上输出各种需要的内容。 2. GDI+ DLL GDI+的 Dll 在 Windows XP+中默认存在，如果 Windows XP 以下系统需要使用 GDI+，那么需要从微软网站上下载安装包。 3. 使用 GDI+ GDI+在.net Framework 中默认集成，只要添加它的命名空间（System.Drawing.Drawing2D）就能够使用了；而 GDI+在其它上面就没有那么容易了，例如 VB6 就需要添加 GDI+的 API。对于初学者，写一堆 API 可能比学 GDI+用时还要长，不过我整理好了 API 到了一个模块，使用时候呢只要在 VB 里面加载一下就可以啦！

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. VB6 GDI+ 入门教程[2] GDI+初始化现在先让我们了解下 GDI+的绘图机制。 1.初始化、关闭 GDI+ 我们需要对 GDI+进行初始化，才能使用它的各种功能。如果没有初始化，那么 VB6 就会莫名其妙的崩溃。呵呵。当然程序结束了我们还要关闭 GDI+释放内存。 2.Graphics Graphics 是 GDI+基础。首先我们需要一个图形对象 graphics（可以看作是画板），我们所有的东西都要画在这个上面。那么如何显示呢？不要急，我们可以通过 GDI+内置函数从一个对象的 DC（设备描述表）上创建 graphics。这样我们操作 graphics 的时候就会显示在对象上。当然我们还可以从对象的 hwnd 中创建；在.net 中也可以从 gdi+的图像(image)中创建（直接操作在图像上）。 3.绘图工具有了画板，我们还要画笔、画刷才能画画 - -。画笔画刷呢，在 gdi+中就叫做 pen、brush。画笔 pen 只能画一个轮廓（画线），而画刷可以对一个东西进行填充（刷子）。这个就是一个基础呵呵，很简单吧。 4.创建第一个 VB6 的 GDI+ 程序首先，我们添加下 GDI+模块；然后我们需要对窗体（以后可以是其它容器）属性进行设置： AutoRedraw=True，开启自动重绘；再把 ScaleMode 设置成 3(Pixel 像素)，因为 GDI+基础单位就是像素（当然可以用别的单位）好，现在双击窗体，写入下面代码： Option Explicit Dim graphics As Long Private Sub Form_Load() InitGDIPlus GdipCreateFromHDC Me.hDC, graphics End Sub Private Sub Form_Unload(Cancel As Integer) GdipDeleteGraphics graphics '释放 graphics 占用的内存 TerminateGDIPlus End Sub

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. OK，F5 运行。如果没有问题的话我们第一个最基础的 GDI+程序已经完成了。这个基本的程序创建了一个 graphics 对象，当然什么还没有画呢。通过这个程序，我们就大致了解 VB6 中 GDI+如何初始化、关闭了。首先呢要启动 GDI+，然后要创建一个 graphics；关闭的时候也要做好扫地工作。 5.画线线嘛，又不是填充，根据前面说的，我们需要一个 pen。那么如何创建 pen 呢？呵呵，下面的代码就能创建一个 pen（追加在 Form_Load 过程中的末尾）： Dim pen As Long GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen 这里已经新建了一个 pen。为什么是 GdipCreatePen1 而不是 GdipCreatePen2 什么的呢？你可以在代码里面输入“mgdip.”这样就列出了所有的 GDI+函数。通过对象浏览器可以得知 pen2 是根据 brush 来创建 pen 的，现在不用。 &HFFFF0000：这里就是一个 16 进制的 ARGB (Alpha,Red,Green,Blue——透明，红色，绿色，蓝色程度，255(&HFF)是完全，0(&H0)是完全不) 的数据。当然你可以输入 10 进制，只是 16 进制很方便，2 个位就是一段，如&HFFFF0000 就代表一个透明度是 255（不透明），颜色是红色的一种颜色。如果你知道点绘图技巧就很容易用这个去写呵呵~。同时我们还能看到 gdi+过程是传址的，把 pen 传进去。为什么不用函数传出来呢？因为函数要传出一个标识，错误标识。一般如果成功了那么就返回的是 0（Ok）。好，现在已经拿到笔了，接下来就是用这个笔去画线了。通过查询可知有这么个 API： GdipDrawLine，它的 X1Y1,X2Y2 是 single 型，继续找又发现 GdipDrawLineI，它的坐标值都是 Long 型（我们一般用不到 single，因此我们一般用 GdipDrawLineI 就行了）。根据它的参数名字乱猜都能猜出来哪个参数代表什么了，于是我随便写了一句：GdipDrawLineI graphics, pen, 10, 10, 200, 100。注意：你需要把 graphics 和 pen 传进去，否则怎么画呢？不告诉它画在哪里~~，后面 4 个参数分别对应：起始点 X、起始点 Y、终点 X、终点 Y 的坐标。当然扫地工作也要做好，删除 pen 的语句是 GdipDeletePen；参数很简单，传 pen 进去即可。综合起来，于是我们有了第一段真正绘制的 GDI+ VB6 程序，虽然它只画了一条线： Option Explicit Dim graphics As Long Dim pen As Long Private Sub Form_Load() InitGDIPlus

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. GdipCreateFromHDC Me.hDC, graphics GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen GdipDrawLineI graphics, pen, 10, 10, 200, 100 End Sub Private Sub Form_Unload(Cancel As Integer) GdipDeletePen pen '删除这个笔(pen) GdipDeleteGraphics graphics '释放 graphics 占用的内存 TerminateGDIPlus End Sub OK，F5 运行。红线没有出来？^_^……注意了我们是在 Load 中绘制的。GDI+绘制与 VB 自己语句绘制一样。我们需要让他自动重绘（窗体的 AutoRedraw=True）或者放到 Paint 里面：）顺便说一下，如果你不是在 Load 事件中绘制的东西，并且 Form 的 AutoRedraw 是 True，那么别忘记全部画完后 Refresh(例如 Me.Refresh)一下~!不然不会出现直到重绘时（例如曾被挡住）。终于……哈，一条红色的斜线出现了！

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. VB6 GDI+ 入门教程[3] 笔、刷子、矩形、椭圆绘制好，我们已经学会如何画线了，那么后面的事情只要变通下都可以解决。不过变通前我还是得说几个基本的东西。 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

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. 现在我们就绘制了一个 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

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. 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 里面后面参数是接受长宽，而刷子里面接受的是点……知道区别和解决方法了么？减呗！）……，这主要让你知道刷子的“运作模式”呵呵。

Generated by Foxit PDF Creator © Foxit Software http://www.foxitsoftware.com For evaluation only. Dim brush As Long Dim p1 As POINTF, p2 As POINTF p1.X = 10 p1.Y = 10 p2.X = 100 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

资料库

VB6_GDI+_入门教程.pdf

相关推荐

课程资源

热门标签

最新资料