ExtCreatePen【ExtCreatePen】创建一个扩展画笔（装饰或几何） 。
基本介绍外文名：ExtCreatePen
函式说明：创建一个扩展画笔
运算：OR运算
指定线宽：1
声明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使用方法ExtCreatPen (dwPenStyle ,// 画笔样式dwWidth ,// 指定线宽lplb ,// 逻辑画刷变数dwStyleCout ,// 如指定了PS_USERSTYLE，则代表lpStyle数组中的条目数量lpStyle// 指定PS_USERSTYLE的“线段/空白”对)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 。lplbLOGBRUSH，lbColor代表画笔颜色 。对于装饰画笔，lbStyle为PS_SOLID；对于几何画笔，lbStyle则代表实际的样式 。针对几何画笔，必须设定其他所有字型 。dwStyleCount (Long)如指定了PS_USERSTYLE，则代表lpStyle数组中的条目数量 。lpStyle (Long)指定PS_USERSTYLE的“线段/空白”对（原文：Line/space pairs for PS_USERSTYLE）返回值Long，如执行成功，返回一个指向扩展画笔的句柄 。零表示执行出错 。一旦不再需要，记得用DeleteObject将画笔删除 。ExtCreatePen