关于picture空间下的绘图。
首先要在picture 中绘制个圆和一条直线，问题是怎么让他俩的线宽度不一样？比如圆的线宽为4，一条固定长度的直线线的宽度为1.谢谢了。
2015-01-05 23:29
2015-01-06 00:35
2015-01-06 00:36
2015-01-06 13:33
2015-01-06 14:22
2015-01-06 14:23
2015-01-06 14:34
2015-01-06 14:50
2015-01-06 14:52
程序代码：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
2015-01-06 15:04