主题:  如何画一条直线

myping

职务:普通成员
等级:1
金币:0.0
发贴:33
#12002/3/15 23:39:27
我想在课件中任意画一条直线,是否可用函数DrawLine来实现,格式如何?



zhhmnch

职务:普通成员
等级:1
金币:0.0
发贴:5
#22002/3/16 8:18:35
格式1:DrawLine(pensize)
2:DrawLine(pensize, [x1, y1, x2, y2])
说明:
1:该函数设置的目的是使最终用户使用鼠标拖动的方法来绘制直线,线型的宽度由pensize来决定,用该方法使用该函数必须在热区响应区域中使用;
2:该函数是使最终用户只能在(x1,y1),(x2,y2)所限定的范围内绘制直线,直线线型由参数pensize决定:我们可以使用SetFrame 来调整线型的颜色。



myping

职务:普通成员
等级:1
金币:0.0
发贴:33
#32002/3/17 1:16:02
有没有办法连续画两条直线,我画第二条时前面的被自动清除了。



与人同乐

职务:管理员
等级:6
金币:18.0
发贴:3928
#42002/3/17 11:04:44
考虑一下响应的擦除属性。



myping

职务:普通成员
等级:1
金币:0.0
发贴:33
#52002/3/18 0:29:32
有没有办法想清除就清除呢?擦除属性中的设置要么全清除,要么都不清除。



与人同乐

职务:管理员
等级:6
金币:18.0
发贴:3928
#62002/3/18 12:20:15
用代码来控制吧:eraseicon