AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 00:39:17
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GRAPHIQUE AVEC MSCHART


Information sur la source

Catégorie :Graphique Classé sous : mschart, chart, graphique Niveau : Débutant Date de création : 13/04/2004 Date de mise à jour : 25/01/2008 14:04:38 Vu : 14 116
Auteur : aurbadguy Ecrire un message privé
Note :
8,57 / 10 - par 7 personnes
8,57 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

Description

Parfait pour comprendre comment faire très simplement un graphique à partir de données contenu dans un tableau.
N'oubliez pas d'ajouter le composant dans projet ->Composant ->Microsoft Chart Control (VB6 requis)
le composant s'appel MSChart1 ( par defaut )

Si vous essayer d'aller plus loin avec ce composant :
http://www.vb123.com/toolshed/99_vbchart/vbchart1.htm (anglais)
http://www.aspfree.com/c/a/Code-Examples/Creating-a-Chart-using-Data-from-a-Database-with-MS-Chart-Control/ (anglais)




 

Source

  • Private Sub Form_Load()
  • Dim tabx(10) As Integer
  • MSChart1.TitleText = "Exemple d'utilisation du composant MsChart"
  • MSChart1.chartType = VtChChartType2dLine
  • For i = 1 To 10
  • tabx(i) = i
  • Next
  • With MSChart1
  • ' Pas de rafraichissement...
  • .Repaint = False
  • .ColumnCount = 1 ' 1 graphiques
  • .RowCount = 10 ' Nb points
  • ' Tracé du 1er graphe
  • .Column = 1 ' numero du graphique
  • .ColumnLabel = "tabx" ' Libellé du 1er graphe
  • 'on rentre les valeurs du graphe point par point
  • For Row = 1 To 10
  • .Row = Row 'X
  • .RowLabel = CStr(Row)
  • .Data = tabx(Row) 'Y
  • Next Row
  • ' Rafraîchissement du controle
  • .Repaint = True
  • End With
  • End Sub 
Private Sub Form_Load()
    Dim tabx(10) As Integer
        
    MSChart1.TitleText = "Exemple d'utilisation du composant MsChart"
    MSChart1.chartType = VtChChartType2dLine
    
    For i = 1 To 10
        tabx(i) = i
    Next

     With MSChart1
        ' Pas de rafraichissement...
        .Repaint = False
    
        .ColumnCount = 1            ' 1 graphiques
        .RowCount = 10     ' Nb points

        ' Tracé du 1er graphe
        .Column = 1                 ' numero du graphique
        .ColumnLabel = "tabx"       ' Libellé du 1er graphe
        
        'on rentre les valeurs du graphe point par point
        For Row = 1 To 10
            .Row = Row              'X
            .RowLabel = CStr(Row)
            .Data = tabx(Row)       'Y
        Next Row
        
         ' Rafraîchissement du controle
        .Repaint = True
    End With

    
End Sub

Conclusion

Cette souce est extrêment simple d'où le fait que les commentaires sont peu nombreux, je ne rentre dans aucun détail a vous d'explorer et de tester les différentes propriétés du contrôle.
 

Historique

25 janvier 2008 14:04:38 :
Mise a jour suite dicussions sur le fait qu'il n'y ai pas beaucoup de commentaires.

Commentaires et avis

signaler à un administrateur
Commentaire de bubble44 le 13/04/2004 18:50:29

Génial, avec enabled = false, ca empeche le redimensionnage, c'est trop top.

signaler à un administrateur
Commentaire de abronsius le 21/04/2004 07:58:26

Ouaip... le minimum du minimum. Un exemple de ce que l'on peut faire avec MSChart se trouve sur www.flowcapt.com. Les graphiques des stations sont générés automatiquement depuis des fichiers de données mis à jour régulièrement. La génération du tableau principal et des pages de chaque station se fait depuis un prog vb aussi.

Le code étant propriété de l'entreprise je ne peux le mettre à dispo de tout le monde ! Avec ce programme, je suis vraiment au limite de MSChart. J'ai lu qu'il faudrait utiliser l'OCX d'Office pour faire mieux (texte propre, axes des graphiques alignés...) mais il faut que tous les utilisateurs du prog aient Office installé... dommage !

signaler à un administrateur
Commentaire de pepsi le 29/10/2004 02:20:23

J'étais à la recherche d'une facon de faire un graphique simplement !
Le composant est super mais les explications ...

signaler à un administrateur
Commentaire de iut info le 14/04/2006 09:58:49

bonjour j'ai un probleme je ne trouve pas l'objet à rajouter dans ma liste de référence

signaler à un administrateur
Commentaire de oulassin le 22/06/2006 23:42:45

merci beaucoup

signaler à un administrateur
Commentaire de espada le 30/04/2007 17:27:00

ce code n'est pas trés detaillé, mais ça fera l'affaire!

signaler à un administrateur
Commentaire de Rukialilly le 25/01/2008 13:50:24

comment on fait pour faire un graphique sur plusieurs lignes?dès que l'on veut mettre plus de 10 lignes le programme plante. Je voudrais un graphe partant de 3 à 400 en Y et c'est toute les minutes pour les X. J'aimerais savoir comment faire. merçi d'avance

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Impression d'un MSChart [ par DICK ] J'ai plus ou moins reussi a imprimer mon graphique que j'ai créer avec MSChart.(Il prend ces données dans un ado)Pour cela, j'ai utiliser la commande Eliminer un point d'une courbe (MSCHART) [ par Baddack ] Attention ce message s'adresse à un dieu du VB.Je dois afficher une courbe avec un MsChart.Jusque là rien de méchant.Puis si l'utilisateur trouve un Au secours! Pbme avec MSChart [ par Sophie ] BonjourJe désire obtenir un graphique à l'aide du contrôle MSChart.Pour cela, je pars d'une grid qui possède (par exemple) 1 colonne qui contient le n AU SECOURS Pbme MSChart [ par Sophie ] BonjourJe désire obtenir un graphique à l'aide du contrôle MSChart.Pour cela, je pars d'une grid qui possède (par exemple) 1 colonne qui contient le n Dessiner un graphique en vb avec MSChart [ par titi18 ] Bonjour,Je souhaite créer un graphique sous forme d'histogramme. Dans l'aide j'ai vu que pour utiliser MSChart il faut remplir un tableau DataGrid qui Copie de graphique [ par rhum1 ] Bonjour,j'ai un object Mschart (dans mon formulaire) que je voudrais copié dans un autre MSChart vierge (déclaré dans le code).Comment dois je faire?M Dimensionner un MSCHART [ par pulley60 ] Salut à tous!!Voilà, j'utilise des MSChart sous VB pour tracer des graphiques 2D à partir d'une variable de données, mais j'ai un problème : le graphi C'est compliqué le MS CHART !!!!! [ par reyman ] 1)Lorsque l'on trace un graphique de 10 valeurs, le prog affiche automatiquement en abcisse '1 2 3....10'Comment faire pour qu'il n'affiche que 2 vale ErrorBar avec un MSChart [ par pulley60 ] Bonjour à tous, je voudrais savoir s'il est possible d'afficher des ErrorBar sur la courbe d'un graphique dans un MSChart comme on peux le faire sous MSChart [ par Fripouil ] FripouilVoila je n arrive pas a trouvé le code à utiliser pour modifier les données des colonnes de mschart.Explication :J ai une form avec des option


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,406 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.