ExtCreatePen

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)

Top