vb6.0 中的line

[xiang_qin]

怎样在Picture控件里画直线或者是圆，请各位大侠不吝赐教。

[咸清]

1，直接调绘图函数
2，循环算采样点，描点

[贝隆]

方法很多
http://download.csdn.net/source/1894278
http://download.csdn.net/source/2368159

[xiang_qin]

能给我一小段具体的代码么

[worldy]

[Quote=引用楼主 xiang_qin 的回复:]
怎样在Picture控件里画直线或者是圆，请各位大侠不吝赐教。
[/Quote]

picture1.line(x1,y1)-(x2,y2)
picture1.circle(x0,y0),r

[xiang_qin]

根本显示不出来啊，窗体上直接用
form1.show
picture1.line(x1,y1)-(x2,y2)
picture1.circle(x0,y0),r
即可
picture控件上这么显示呢

[贝隆]

[Quote=引用 5 楼 xiang_qin 的回复:]
根本显示不出来啊，窗体上直接用
form1.show
picture1.line(x1,y1)-(x2,y2)
picture1.circle(x0,y0),r
即可
picture控件上这么显示呢
[/Quote]
你不给x1，y1、x2、y2赋值，它们都是0，当然看不到线了
你仔细看看左上角是不是有一个黑点？

[c_cyd2008]

[Quote=引用 5 楼 xiang_qin 的回复:]
根本显示不出来啊，窗体上直接用
form1.show
picture1.line(x1,y1)-(x2,y2)
picture1.circle(x0,y0),r
即可
picture控件上这么显示呢
[/Quote]
picture?picture1.AutoReDraw=True

[worldy]

[Quote=引用 5 楼 xiang_qin 的回复:]
根本显示不出来啊，窗体上直接用
form1.show
picture1.line(x1,y1)-(x2,y2)
picture1.circle(x0,y0),r
即可
picture控件上这么显示呢
[/Quote]

你要将代码放在picture_paint事件里
或者，放在Load事件里，则picture.autoredraw要设置为true