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

#2

V菜鸟V2015-01-06 00:35

如图所示

只有本站会员才能查看附件，请登录

#3

V菜鸟V2015-01-06 00:36

谢谢了，期待您的指导，谢谢。

#4

V菜鸟V2015-01-06 13:33

快来人呀，，，谁会呀，看看呀，，谢谢了。

#5

lianyicq2015-01-06 13:55

画之前设定以下属性
Form1.Picture1.DrawWidth

#6

V菜鸟V2015-01-06 14:22

回复 5楼 lianyicq

这样的话他图片区域内的线宽都是一样的了，我的意思你没看懂呀，，，，，不同的线宽

#7

V菜鸟V2015-01-06 14:23

回复 5楼 lianyicq

线和圆都在picture 中画的期望不同的线宽的，，是这个意思的。

#8

lianyicq2015-01-06 14:27

回复 7楼 V菜鸟V

即然知道这个办法,为什么不在每一次画之前重新赋值

#9

V菜鸟V2015-01-06 14:34

回复 8楼 lianyicq

圆会复制，直线怎么设置？

#10

lianyicq2015-01-06 14:36

form1.picture1.drawwidth=4
form1.picture1.circle(x,y),r
form1.picture1.drawwidth=1
form1.picture1.line(x1,y1)-(x2,y2)

#11

V菜鸟V2015-01-06 14:50

回复 10楼 lianyicq

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

#12

V菜鸟V2015-01-06 14:52

回复 10楼 lianyicq

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

#13

lianyicq2015-01-06 14:54

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

只有本站会员才能查看附件，请登录

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

#14

V菜鸟V2015-01-06 15:04

程序代码：

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

我只期望if 语句里面那条线为2

#15

V菜鸟V2015-01-06 15:05

说白了就是那条水平线为线宽为1 其他的都不变的意思。

#16

V菜鸟V2015-01-06 15:06

只有本站会员才能查看附件，请登录

#17

V菜鸟V2015-01-06 15:17

回复 13楼 lianyicq

只有本站会员才能查看附件，请登录

成了，我没理解好你这句话的意思，嘿嘿，，谢谢了。

#18

lianyicq2015-01-06 15:23

0.0

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

#19

V菜鸟V2015-01-10 00:15

回复 5楼 lianyicq

升官了都，啊哈哈，，啊哈哈