以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  chart辅助线,更换条件后无法清除了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165322)

--  作者:百事可乐
--  发布时间:2021/5/13 19:31:00
--  chart辅助线,更换条件后无法清除了
chart辅助线,更换条件后无法清除了。多次重画的结果就是图表上到处都是辅助线了
------------------------------------
以下是画辅助线的代码,在Y坐标变化后,再次生成时,结果出现了二条辅助线,有什么办法可以清除之前画的辅助线吗?
Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl
Dim tl As C1.Win.C1Chart.TrendLine =  C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine() 
tl.LineStyle.Color = Color.blue \'.Gold    \'线条颜色
tl.LineStyle.Thickness = 1              \'线宽
tl.LineStyle.Pattern = 0   \'直线样式 0-5 
Dim zxb = New zxb柱状图标辅助线()
zxb.SetXY(New PointF(minsjxh-0.5,10),New PointF( maxsjxh -0.5 ,10))  !
tl.CustomTrendLine = zxb   

--  作者:有点蓝
--  发布时间:2021/5/13 20:28:00
--  
试试:
Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl
C1Cha.ChartGroups(0).ChartData.TrendsList.clear
Dim tl As C1.Win.C1Chart.TrendLine =  C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()

--  作者:百事可乐
--  发布时间:2021/5/14 10:10:00
--  
昨晚自己琢磨出来了,哈哈。

C1Cha.ChartGroups(0).ChartData.TrendsList.clear()
就是这条。我查了VB释放资源的方法。

@有点蓝 老师也答复了啊,谢谢老师。图片点击可在新窗口打开查看