LineTo如何改变画出线的颜色,线型，线宽等？

[Hobb]

MoveToEx hdc, 30, 350, Pt 'X (40---440)
LineTo hdc, 450, 350

很简单的问题，送分的

[publicsub]

是很简单啊，那你为什么还要问呢？

创建一个你需要的颜色，线形，线宽的画笔(createpen,extcreatepen)，然后selectobject到场景里去。不需要画笔的的时候别忘了deleteobject.

[jam021]

关注,帮你顶!

[haoya]

回复人： publicsub(CSDN菜鸟多,菜鸟多呀，菜鸟多。) ( ) 信誉：100 2004-10-23 12:20:00 得分: 0


是很简单啊，那你为什么还要问呢？

创建一个你需要的颜色，线形，线宽的画笔(createpen,extcreatepen)，然后selectobject到场景里去。不需要画笔的的时候别忘了deleteobject.


.............................
可以使用他的方法，修改画笔，来改变线的样式，粗细，和颜色。
也可以直接设置picture,form,等具有hdc的对象的drawstyle,drawwidth,forecolor,等属性。

[wwqna]

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


创建好之后，再用selectobject就可以了