|
|
| VB声明 |
| Declare Function ExtCreatePen Lib "gdi32" Alias
"ExtCreatePen" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As
LOGBRUSH, ByVal dwStyleCount As Long, lpStyle As Long) As Long |
| 说明 |
| 创建一个扩展画笔（装饰或几何） |
| 返回值 |
| Long，如执行成功，返回一个指向扩展画笔的句柄。零表示执行出错。一旦不再需要，记得用DeleteObject将画笔删除 |
| 参数表 |
| 参数 |
类型及说明 |
| dwPenStyle |
Long，画笔样式来自下述常数组的任何一个常数的组合（OR运算）： |
| PS_COSMETIC or PS_GEOMETRIC |
画笔的类型 |
| PS_ALTERNATE, PS_SOLID, PS_DASH, PS_DOT, PS_DASHDOT, PS_DASHDOTDOT,
PS_NULL, PS_USERSTYLE, PS_INSIDEFRAME |
画笔的样式 |
| PS_ENDCAP_??? |
画笔的笔尖 |
| PS_JOIN_??? |
在图形中连接线段或在路径中连接直线的方式 |
| dwWidth |
Long，指定线宽。几何画笔的线宽肯定是1 |
| lplb |
LOGBRUSH，lbColor代表画笔颜色。对于装饰画笔，lbStyle为PS_SOLID；对于几何画笔，lbStyle则代表实际的样式。针对几何画笔，必须设置其他所有字体 |
| dwStyleCount |
Long，如指定了PS_USERSTYLE，则代表lpStyle数组中的条目数量 |
| lpStyle |
Long，指定PS_USERSTYLE的“线段/空白”对（原文：Line/space
pairs for PS_USERSTYLE） |
|