Code de mschar pour vb6.0
Résolu
simoarij
Messages postés
5
Date d'inscription
jeudi 21 décembre 2000
Statut
Membre
Dernière intervention
11 juillet 2009
-
14 mai 2009 à 10:05
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 - 18 mai 2009 à 11:12
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 - 18 mai 2009 à 11:12
2 réponses
Claiyah
Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
3
14 mai 2009 à 18:42
14 mai 2009 à 18:42
ajoute MSChart1 dans ton projet
voila un exemple:
Private Sub Form_Load()
Dim tabx(50) As Integer
MSChart1.TitleText = "Courbe de test"
MSChart1.chartType = VtChChartType2dLine
For i = 1 To 50
tabx(i) = i
Next
With MSChart1
' Pas de rafraichissement...
.Repaint = False
.ColumnCount = 2 ' 1 graphiques
.RowCount = 100 ' 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 50
.Row = Row 'X
.RowLabel = CStr(Row)
.Data = tabx(Row) 'Y
Next Row
.Repaint = True
End With
With MSChart1
'tracé la 2eme courbe
.Column = 2
.ColumnLabel = "tabx"
'on rentre les valeurs du graphe point par point
For Row = 1 To 50
.Row = Row 'X
.RowLabel = CStr(Row)
.Data = tabx(Row) 'Y
Next Row
' Rafraîchissement du controle
.Repaint = True
End With
End Sub
Les yeux montrent la force de l'âme
voila un exemple:
Private Sub Form_Load()
Dim tabx(50) As Integer
MSChart1.TitleText = "Courbe de test"
MSChart1.chartType = VtChChartType2dLine
For i = 1 To 50
tabx(i) = i
Next
With MSChart1
' Pas de rafraichissement...
.Repaint = False
.ColumnCount = 2 ' 1 graphiques
.RowCount = 100 ' 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 50
.Row = Row 'X
.RowLabel = CStr(Row)
.Data = tabx(Row) 'Y
Next Row
.Repaint = True
End With
With MSChart1
'tracé la 2eme courbe
.Column = 2
.ColumnLabel = "tabx"
'on rentre les valeurs du graphe point par point
For Row = 1 To 50
.Row = Row 'X
.RowLabel = CStr(Row)
.Data = tabx(Row) 'Y
Next Row
' Rafraîchissement du controle
.Repaint = True
End With
End Sub
Les yeux montrent la force de l'âme
Claiyah
Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
3
18 mai 2009 à 11:12
18 mai 2009 à 11:12
bah accepte ma réponse
Les yeux montrent la force de l'âme
Les yeux montrent la force de l'âme
