Discussion :

[noftal]

Bonjour,

Ma question porte sur la classe Chart.
J'ai créé 2 ChartAreas dans un même Chart.
Ma Serie1 s'affiche sous forme de pieChart dans le ChartArea1 et ma Serie2, dont les valeurs sont synchronisée avec Serie1, s'affiche sous forme de BarChart dans ChartArea2.
Je voudrais que les couleurs des slices du pie soient reprises par les barres du barChart pour une valeurX de point donnée.

En quasi-langage, cela donnerait quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For each point As DataPoint in Chart1.Series(1).Points
          point.Color = Chart1.Series(0).Points(point.pointindex).Color
Next

code à mettre dans l'Event Customize.

... sauf que pointindex n'existe pas et il me faudrait donc récupérer l'index du point de la Serie(0) pour trouver le point du même index de Series(1) et lui appliquer la même couleur.

Qqun a-t-il une idée ?

[noftal]

Je m'autoréponds :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 Dim point0, point1 As DataPoint
 For i = 0 To Series(0).Points.Count - 1
            point0 = Series(0).Points(i)
            point1 = Series(1).Points(i)
            point1.Color = point0.Color
            point1.BackSecondaryColor = point0.BackSecondaryColor
            point1.BackHatchStyle = point0.BackHatchStyle
Next

C'est bête comme chou, mais on a tellement pris l'habitude de boucler avec des For Each Next en VB.NET que l'on oublie les bonnes veilles boucles For Next