labels graphiques statistiques

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'ai un graphique qui est créé à partir de statistiques. J'aimerai dans un premier temps afficher les labels de chaque point de mon graphique dans les colonnes générées de haut en bas. Puis dans un second temps afficher un pourcentage dans mon abscisse Quelqu'un pourrais m'aider ?

Je vous fais suivre une image de mon formulaire et graphique pour mieux comprendre.

Code:

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)

Merci par avance.

04/04/2012, 08h26
hunteshiva

Bonjour,

Citation:

J'aimerai dans un premier temps afficher les labels de chaque point de mon graphique dans les colonnes générées de haut en bas.

Je ne comprend pas vraiment ce que tu veux par la,
n'a tu pas déjà les label en haut de tes colonnes?

pour le %, je ne crois pas qu'il y ais d'options.
Tu peux le faire en calculant toi même le % de chaque valeurs.

Je te laisse regarder ce tuto, tu y trouvera bonheur a mon avis ;)
http://plasserre.developpez.com/cours/chart/
04/04/2012, 09h04
Looping39

Bonjour,

Oui mes labels sont bien là néanmoins je voudrais les changer de place. Soit en dehors du graphe dans une légende ou soit inscrites directement dans les colonnes de haut en bas, une lettre par ligne du style.
B
O
N
J
O
U
R

C'est pas évident à expliquer :aie:

Mes données sont déjà en pourcentage. Mais comme tu peux constater si le résultat est de 40 % maximum l'abscisse en reste là et ne monte pas jusqu'à 100.
Merci pour le cours, je l'avais déjà consulté ;)
06/04/2012, 09h10
hunteshiva

Re

Bon j'ai pas encore trouvé pour tes labels verticaux, je pense qu'il faut que tu passe par quelque chose d'asse compliqué pour faire ça.

Pour ton autre point,
mettre l'axe à 100%, tu peux en précisant la valeur max de l'axe ;)

Code:

Chart2.ChartAreas(0).AxisY.Maximum = 100

Pour les label verticaux, peut être que tu peux créer une classe héritée de DataPoint, redéfinir la méthode OnPaint et te servir de la méthode Graphics.DrawText pour le texte et Graphics.Transform pour la rotation..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        Dim text As String = "..."
        Dim origine As Point = Me.Location
        Dim orientation As Integer = 90
 
        'On tourne le graphic dans le sens inverse 
        Dim myMatrix As New Drawing2D.Matrix()
        myMatrix.RotateAt(orientation, origine, Drawing2D.MatrixOrder.Append)
        g.Transform = myMatrix
 
        'Dessin du texte
        g.DrawText(text)
 
        ' On retourne le graphique dans le bon sens
        myMatrix.RotateAt(-orientation, origine, Drawing2D.MatrixOrder.Append)
        g.Transform = myMatrix
 
    End Sub

Ça ne sera pas écrit de haut en bas mais ce sera seulement un texte orienté verticalement..