ExtCreatePen
内容
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） |
|