|
上回发了千奇百怪的窗体，看的人还是蛮多，说明大家对api还是有兴趣的。
论坛上关于api的贴很少，建议建一个api版。
传统的观点都认为api属于很高深的东西。在vb里也把它放在高级话题。
其实我认为api并不难，学程序最难的是算法，而不是语法。
api属于语法类了，因为它是写好的，你只要知道每个api函数是用来干什么的，以及
参数的含义怎么用，你就可以使用它了。如果要说api真的难，那就难在对它的理解上了。
很多api如果没人解说的话真的是比较难于理解。不过即使你无法完全理解，你仍然可以
照葫芦画瓢使用它。如果你没有接触过程序，但你打算开始学，先学api或同时进行也都是
可以的。在vb等可视化编程出现以前很多功能都是靠api来实现的。Vb 也是建立在api上，
只不过是放在后台了。但是很多功能还要调用api。不管开发语言如何发展，api的地位
永远不会被动摇。 上面说了这么多废话，现在开始正题。
上回介绍了在vba里操作窗体，以及用CreateRectRgn画矩形，和用CombineRgn组合区域。
有了这两个函数已经可以画很多形状了。今天在向大家介绍几个。
1、画多边形
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI,
ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
看函数名就知道它的意思了。
POINTAPI是一个类型，描述一个点的坐标，声明如下：
Public Type POINTAPI
X As Long
Y As Long
End Typ
参数：lpPoint表示多边形的第一个点的坐标。
nCount表示多边形的点的个数，几个点就是几边形。
nPolyFillMode描述多边形填充模式，有两种：
1、ALTERNAT 交替填充
2、WINDING 根据绘图方向填充
这两个常数是比较难理解的，我还是尽量解释的易懂些
在ALTERNATE模式下，设想屏幕上有一个四边形，现在我要填充其内部，我怎么判断一个点在他的内部呢？
从这个点画一条射线与四边形的边相交 ，如果与奇数条边相交就填充他，偶数就不填充。
在WINDING模式下：用一笔画一个矩型，矩型的顶点为a、b、c、d，画的顺序可以为a到b到c到d到a或者a到d到c到b到a，
这就是多边型中画每个线段时的方向（顺时针or逆时针）；现从一点画一条线与矩形abcd线相交，
相交时只有两种情况：从直线的一边到直线的另一边，假如从直线的左边到右边为顺时针，计数+1
从直线的右边到左边为逆时针，计数-1。此时要注意矩形的边是有方向的，bc的左边就是da的右边。
最后计数 不为0的点将被填充。
如果你无法理解也没关系，你随便选一种模式就可以了。
记住先定好每个点的坐标把它们放在一个POINTAPI类型的数组里。 2、画椭圆
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long,
ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
这个函数就很好理解了。X1，y1和X2，y2确定一个矩形，分别是左上角和右下角的坐标。
这个椭圆就和这个矩形内切，当矩形是正方形时，就是圆了。 3、画圆角矩形
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long,
ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
X1，y1和X2，y2确定一个矩形，x3确定x方向的圆角化，y3确定y方向的圆角化 注意：画完图形后，当不在用它的时候要用DeleteObject删除它，否则会占用内存。 总结：
有了这些函数你已经可以划出任何规则或不规则的图形了。
有人问我想画一个边界极不规则的图形，是否要画无数个图形来拼呢？
哈：）答案是否定的，api还有更好的办法来实现他。
欲知如何处理，且看下回分解！
最后喊一句口号：
普及API，人人有责！
实例：
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2007-1-18 11:09
楼主
发表于 2007-1-20 15:29