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函数将其删除 |