以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FoxTable有没有绘图功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142833)

--  作者:wangjh8888
--  发布时间:2019/11/7 10:51:00
--  FoxTable有没有绘图功能
老师  好,问问FoxTable有没有绘图功能,比如画点,画线等命令语句。
--  作者:狐狸爸爸
--  发布时间:2019/11/7 11:58:00
--  
没有,只能借助第三方绘图工具。
--  作者:有点蓝
--  发布时间:2019/11/7 13:59:00
--  
这个?http://www.foxtable.com/webhelp/topics/1481.htm
--  作者:wangjh8888
--  发布时间:2019/11/7 18:06:00
--  
谢谢  我试试
--  作者:wangjh8888
--  发布时间:2019/11/10 13:04:00
--  
老师:
下面画2条线段
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawLine(Pens.Red,30,0,30,60)
g.DrawLine(Pens.Red,0,30,60,30)
p.Repaint()

下面清除所有内容
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.Clear(Color.Transparent)      \'清除所有内容,并将背景颜色设为白色
p.Repaint()

有没有只清除一条线段的代码?或者如何修改其中一线段?
[此贴子已经被作者于2019/11/10 13:05:15编辑过]

--  作者:程兴刚
--  发布时间:2019/11/10 20:11:00
--  
全部清除,修改按钮再重新绘制,没有别的办法,也可以做到,每个线条一个绘图板重叠,背景全部为Color.Transparent,也就是每一个图形绘制一个图层,不过那样麻烦多了!
--  作者:有点蓝
--  发布时间:2019/11/10 21:21:00
--  
Foxtable不是专业的绘图软件,做不到太精细的绘制,效果也未必好