获取图表系列的颜色

Question

I need to get the color of a series that is set by smart lables, I want to make a cell in a DGV the same color.

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 

The function Me.ChtCurves.Series(Cur.ToString).Color is returning a list of Colors and not the Series color.

Answer 1

If you are not explicitly setting a series color and want to retrieve the default assigned color, then you must call Chart.ApplyPaletteColors() .

Modify your code to call this method after adding the Series to the chart's Series collection

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