1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Dim p1 As New DataPoint
p1.XValue = 1
p1.YValues = {pourc_encours_relance}
p1.Label = "EN COURS/RELANCES "
p1.Color = Color.Red
Chart1.Series("DEMANDE").Points.Add(p1)
Dim p2 As New DataPoint
p2.XValue = 2
p2.YValues = {pourc_encours_sansrelance}
p2.Label = "EN COURS SANS RELANCES"
p2.Color = Color.Turquoise
Chart1.Series("DEMANDE").Points.Add(p2)
Dim p3 As New DataPoint
p3.XValue = 3
p3.YValues = {pourc_termine_relance}
p3.Label = "TERMINEES/RELANCEES"
p3.Color = Color.Orchid
Chart1.Series("DEMANDE").Points.Add(p3)
Dim p4 As New DataPoint
p4.XValue = 4
p4.YValues = {pourc_termine_sansrelance}
p4.Label = "TERMINEES SANS RELANCES"
p4.Color = Color.LightCoral
Chart1.Series("DEMANDE").Points.Add(p4)
Chart1.Series("DEMANDE").ChartArea = "ChartArea1"
Chart1.Location = New System.Drawing.Point(415, 250)
Chart1.Size = New System.Drawing.Size(635, 250)
Me.Controls.Add(Chart1) |
Partager