Discussion :

[uroka]

Bonjour.
je viens de créer un graphique lié à une listeview et ça marche très bien.je veux savoir est ce qu' il y a une méthode pour sélectionner juste une série dans ce graphique.voila le code et merci d'avance

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
 
 Dim ChartLegend As Legend
         Dim ChartSerie As Series
         Dim Lst As ListViewItem
         chart1.Series.Clear()
         chart1.Legends.Clear()
         chart1.ChartAreas.Clear()
           If (Liste.Columns.Count > 0) AndAlso (Liste.Items.Count > 0) Then
              ChartLegend = New Legend
              ChartLegend.LegendStyle = LegendStyle.Column
              ChartLegend.CustomItems.Clear()
              chart1.Legends.Add(ChartLegend)
              chart1.ChartAreas.Add("")
              chart1.ChartAreas(0).Area3DStyle.Enable3D = True
              For Each Lst In Liste.Items
                ChartSerie = New Series
                ChartSerie.LegendText = Liste.GetSubItemString(Lst, 0) 
                chart1.Series.Add(ChartSerie)
                ChartSerie.ChartType = SeriesChartType.Column
                For i As Integer = 0 To Liste.Columns.Count - 2
                ChartSerie.Points.AddXY(Liste.Columns(i + 1).Text, Liste.GetSubItemDouble(Lst, i + 1))
                Next

[Joki_]

Bonsoir. Je ne suis pas sur mon Pc, je ne peux donc pas tester mais il me semble que tu devrais faire comme ceci :

Code :

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

ChartSerie = New Series("mySerie" & index)

Et ensuite tu pourras la récupère comme suit :

Code :

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

chart1.Series("mySerie" & TonIndex)

Biensur, tu peux changer le nom ou encore index. Je serait toi je partirai sur un identifiant si tu part d'une bdd, enfin voilà une piste, tiens moi au courant

[uroka]

Bonjour Joki.
Merci pour ta réponse tu m'as beaucoup aidé, je n'arrive pas à sélectionner une série mais je peux quand même modifier sa couleur ou sa bordure et c'est extraordinaire.
Merci encore une fois Joki et bonne journée.

[chaparo]

Bonjour uroka,

Je ne sais pas si c'est vraiment ce que tu veux mais avec ce code tu recupere le nom de la serie sur laquelle tu as cliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private result As HitTestResult 
 
Private Sub Chart1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseMove
        ' Appel HitTest qui retourne l'objet sous le curseur
        result = Chart1.HitTest(e.X, e.Y)
end sub
 
Private Sub Chart1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseDown
        maSerie = result.Series.Name
end sub

[Joki_]

Bonjour Joki.
Merci pour ta réponse tu m'as beaucoup aidé, je n'arrive pas à sélectionner une série mais je peux quand même modifier sa couleur ou sa bordure et c'est extraordinaire.
Merci encore une fois Joki et bonne journée.

Heureux d'avoir aidé