CreatePen

VB声明
Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
说明
用指定的样式、宽度和颜色创建一个画笔
返回值
Long，如函数执行成功，就返回指向新画笔的一个句柄；否则返回零
参数表
参数 | 类型及说明
nPenStyle | Long，指定画笔样式，可以是下述常数之一
PS_SOLID | 画笔画出的是实线
PS_DASH | 画笔画出的是虚线（nWidth必须是1）
PS_DOT | 画笔画出的是点线（nWidth必须是1）
PS_DASHDOT | 画笔画出的是点划线（nWidth必须是1）
PS_DASHDOTDOT | 画笔画出的是点-点-划线（nWidth必须是1）
PS_NULL | 画笔不能画图
PS_INSIDEFRAME | 画笔在由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框中画图。如指定的准确RGB颜色不存在，就进行抖动处理
nWidth | Long，以逻辑单位表示的画笔的宽度
crColor | Long，画笔的RGB颜色
注解
一旦不再需要画笔，记得用DeleteObject函数将其删除

Top