Comment faire un graphe sous vb.net

Comment faire un graphe sous vb.net - VB/VBA/VBS - Programmation

Marsh Posté le 25-04-2005 à 21:32:27    

Salut!!!!
je poste a nouveau cette question car mon programme vient de chaner selon les exigences de mon client :
je souhaiterais faire un graphe sous vb.net, mais je n'y parviens pas.
On m'a déjà suggéré ici même de mettre un contrôle mschart mais je ne sais pas ce que c'est ni comment on s'en sert...
 
Et aussi j'aimerais savoir ou je peux trouver des tutoriaux pour utiliser VB.net.
je ne parviens pas a m'y retrouver parmis le bor...l des fenêtre de l'éditeur.
 
Je vous remercie.

Reply

Marsh Posté le 25-04-2005 à 21:32:27   

Reply

Marsh Posté le 27-04-2005 à 18:06:24    

Je dois être stupide ....  
 
J'ai réussi à appliquer l'objet MSChart a mon projet, ceelui ci avait des graphes d'exemples dessus (4 courbes).
Cependant, impossible de modifier celui ci avec mes données... comment faire ?

Reply

Marsh Posté le 27-04-2005 à 18:44:05    

Un exemple de code en espérant que ca t'aide...

Code :
  1. With GrapheEtu
  2.             ' Pas de rafraichissement...
  3.             .Repaint = False
  4.             .ColumnCount = 1
  5.             ' Tracé du 1er graphe
  6.             .Column = 1
  7.             .ColumnLabel = "Stages"
  8.             .RowCount = 5
  9.             For i As Integer = 1 To 5
  10.                 .Row = i
  11.                 If Date.Today.Month >= 9 Then
  12.                     .RowLabel = (Date.Today.Year - 5 + i).ToString & "-" & (Date.Today.Year - 4 + i).ToString
  13.                     .Column = 1
  14.                     .Data = 0
  15.                 Else
  16.                     .RowLabel = (Date.Today.Year - 6 + i).ToString & "-" & (Date.Today.Year - 5 + i).ToString
  17.                     .Column = 1
  18.                     .Data = 0
  19.                 End If
  20.             Next i
  21.             RowNumber = 1
  22.             If Conventions.Rows.Count <> 0 Then
  23.                 For Each Row In Conventions.Rows
  24.                     For i As Integer = 1 To 5
  25.                         .Row = i
  26.                         If .RowLabel = Row.Item("AnneeC" ) Then
  27.                             .Column = 1
  28.                             .Data = Row.Item("NbrC" )
  29.                             RowNumber += 1
  30.                         End If
  31.                     Next i
  32.                 Next Row
  33.             End If
  34.             ' Rafraîchissement du controle
  35.             .Repaint = True
  36.         End With


Reply

Marsh Posté le 27-04-2005 à 19:27:00    

C'est sympa de ta part, on va étudier ton code.
 
On a beau remplir le controle, celui ci me veut pas s'afficher (L'exemple s'affiche plutot que notrte graphe)
 
EDIT : Mes excuses, une erreur de compilation faisait que le graphe ne se regénérait pas, donc évidemment, on voyait notre ancien graphe, ce qui ne présentait que TRES PEU d'intérêt. Merci encore Arwenalia pour toute ton aide.


Message édité par Mythrandil le 27-04-2005 à 20:00:56
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed