Discussion :

[maysa]

Bonjour à tous,

Je dois créer un graphique avec plusieurs séries, dont 2 font parties d'un même groupe et j'ai besoin de les superposer :

voici mon code :

Code :

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

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
35
36
 
 Dim Chart2 As New Chart
 Dim ChartArea1 As New ChartArea()
 Chart2.ChartAreas.Add(ChartArea1)
 
Chart2.Series.Add(Type)
Chart2.Series(Type).ChartArea = "ChartArea1"
 
For i = 0 To DtFrise.Rows.Count - 1
            Dim arg As Integer
 
            Dim D_Ouverture As Date = ReadItemDateDt(DtFrise, i, "DEBUT")
            Dim D_Fermeture As Date = ReadItemDateDt(DtFrise, i, "FIN")
 
            Select Case ReadItemDt(DtFrise, i, "TYPE")
                Case "TITI", "TOTO" : arg = 1
                Case "NETT" : arg = 2
                Case "PAUSE" : arg = 3
            End Select
 
           ' création des points de la série
                Dim p As New DataPoint
                p.XValue = arg
                p.YValues = {D_Ouverture.ToOADate(), D_Fermeture.ToOADate()}
 
          ' ajout du point
 
                Chart2.Series(ReadItemDt(DtFrise, i, "TYPE")).Points.Add(p)
                Chart2.Series(ReadItemDt(DtFrise, i, "TYPE")).Enabled = True
 
 Next
 
        Dim bmp As New Bitmap(Chart2.Width, Chart2.Height)
        Chart2.DrawToBitmap(bmp, Chart2.DisplayRectangle)
        bmp.MakeTransparent(BackColor)
        Dim MonImage As Image = bmp

y-a t-il une option pour superposer les séries ? car l'ajout de points pour le type TITI et TOTO se fait bien avec le même "arg". Je ne comprends pas.
sur l'image en vert TITI et en bleu turquoise "TOTO". (j'ai supprimé d'autres séries inutiles pour mon exemple).
Ce qui est étrange c'est qu'il y a un grand intervalle entre les deux séries TITI et TOTO.

Merci pour votre aide, je bloque depuis 2 jours.