获取图表系列的颜色

时间:2015-07-01 21:42:30

标签: vb.net charts colors get series

我需要获得由智能标签设置的系列的颜色,我想让DGV中的单元格颜色相同。

Dim chtColor(50) As Color

For Each Cur In MCurves
    PTang = EstCurve(Cur, BladeAngle, HRfan)

    Me.ChtCurves.Series.Add(Cur.ToString)
    Me.ChtCurves.Series(Cur.ToString).ChartType = DataVisualization.Charting.SeriesChartType.Spline
    Me.ChtCurves.ChartAreas(0).AxisX.LabelStyle.Format = "#.###"
    chtColor(i) = Me.ChtCurves.Series(Cur.ToString).Color 

函数Me.ChtCurves.Series(Cur.ToString).Color返回的是颜色列表,而不是系列颜色。

1 个答案:

答案 0 :(得分:0)

如果您没有明确设置系列颜色并想要检索默认的指定颜色,则必须调用Chart.ApplyPaletteColors()

修改代码,将系列添加到图表的系列集合

后调用此方法
Me.ChtCurves.Series.Add(Cur.ToString)
Me.ChtCurves.Series(Cur.ToString).ChartType = DataVisualization.Charting.SeriesChartType.Spline
Me.ChtCurves.ChartAreas(0).AxisX.LabelStyle.Format = "#.###"

Me.ChtCurves.ApplyPaletteColors() ' this will allow you to retrieve the default color

chtColor(i) = Me.ChtCurves.Series(Cur.ToString).Color