关于picture空间下的绘图。 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 关于picture空间下的绘图。

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1003 人关注过本帖

标题：关于picture空间下的绘图。

只看楼主加入收藏

V菜鸟V

等　级：论坛游民
帖　子：97
专家分：10
注　册：2014-11-27

第 11 楼

得分:0

回复 10楼 lianyicq

我试了一下，不行，全部线宽都是1了。

2015-01-06 14:50

V菜鸟V

等　级：论坛游民
帖　子：97
专家分：10
注　册：2014-11-27

第 12 楼

得分:0

回复 10楼 lianyicq

因为你规定了是picture的线宽从4变为了1，然而圆和直线都是在picture 下绘图的所以，没意义的。

2015-01-06 14:52

lianyicq

等　级：贵宾
威　望：26
帖　子：737
专家分：3488
注　册：2013-1-26

第 13 楼

得分:20

你把试过的代码传上看看.每次设定DRAWWIDTH只对后续代码有效.

图片附件: 游客没有浏览图片的权限，请登录或注册

[ 本帖最后由 lianyicq 于 2015-1-6 14:58 编辑 ]

大开眼界

2015-01-06 14:54

V菜鸟V

等　级：论坛游民
帖　子：97
专家分：10
注　册：2014-11-27

第 14 楼

得分:0

程序代码：

Picture1.Line (0, 0)-(xa(k3), ya(k3)), Picture1.BackColor
Picture1.Line (xa(k3), ya(k3))-(xb(k3), yb(k3)), Picture1.BackColor
Picture1.Line (xb(k3), yb(k3))-(xc(k3), yc(k3)), Picture1.BackColor
Picture1.Line (xb(k3), yb(k3))-(xe(k3), ye(k3)), Picture1.BackColor
If k3 > 68 And k3 < 150 Then

 Picture1.Line (xe(k3) - 30, ye(k3))-(xe(k3) - 20, ye(k3) - 15 * Sqr(3)), Picture1.BackColor

 Picture1.Line (xe(k3), ye(k3))-(xe(k3) - 10, ye(k3) - 15 * Sqr(3)), Picture1.BackColor
Else

 Picture1.Line (xe(k3) - 30, ye(k3))-(xe(k3) - 15, ye(k3) - 15 * Sqr(3)), Picture1.BackColor

 Picture1.Line (xe(k3), ye(k3))-(xe(k3) - 15, ye(k3) - 15 * Sqr(3)), Picture1.BackColor
End If
Picture1.Line (xc(k3), yc(k3))-(xd, yd), Picture1.BackColor
If Command2.Caption = "显示轨迹" Then

 Picture1.DrawWidth = 1

 Picture1.Line (-100, -(137 + 15 * Sqr(3)))-(200, -(137 + 15 * Sqr(3))), Picture1.BackColor
End If