Discussion :

[Looping39]

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 :

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
                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.

[hunteshiva]

Bonjour,

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/

[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

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é

[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 :

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

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

[-N4w4k-]

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 :

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
 
    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..