以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  清除画线段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146694)
--  作者：wangjh8888
--  发布时间：2020/2/29 13:01:00
--  清除画线段

老师 好 下面的代码画出两条线段，如果要清除其中一线段，代码如何写？ 谢谢  【只看到 Clear(Color)，是清除所有内容，并将背景色设为参数Color指定的颜色】

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()
--  作者：有点蓝
--  发布时间：2020/2/29 14:04:00
--  
使用背景色重绘这条线段