精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: CreatePen(绘图函数)(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:35:47 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
发信人: yucheng (无话可说), 信区: VisualBasic
发信站: BBS 水木清华站 (Mon Apr  3 00:18:44 2000) WWW-POST

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

例子：
        1-35，

--

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)