[VB6] Mschart recuperer la valeur d'un point

Version imprimable

bonjour, j'utilise pour la première fois le composant MSCHART je voudrais recuperer la valeur d'un point par code mais je ne trouve pas dans le tutorial

Mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
MSChart1.chartType = VtChChartType2dLine
 
MSChart1.ColumnCount = 1 ' nbr de graphe
MSChart1.RowCount = 100 ' nbr de point maxi
 
 
 
MSChart1.Data = 0
 
For i = 1 To MSChart1.RowCount
        MSChart1.Row = i
        MSChart1.RowLabel = i
        MSChart1.Column = 1
        ' je voudrais faire par exemple MSCHART1.DATA = la valeur du point précédent + 1
        MSChart1.Data = i
 
Next i
End Sub

Merci bcp
Corben

09/06/2009, 18h06
Delbeke

C'est qui le point précédent ? On est en tableau a deux dimenssions donc le point precédent c'est colonne-1 et rangée - 1? ou seulement colonne - 1
Que se passe t'il quand on est dans la premiere colonne ? etc ...

Il va te falloir réfléchir à ce que tu veux exactement

sinon pour acceder un n'importe quel point, positionne MSChart1.Row et MSChart1.Col, la valeur du point est alors donnée par ValPoint = MSChart1.Data

Pour information, le composant MSChart ne renvoie qu’une valeur à la fois, en le positionnant au coordonnées Row/Column, d‘autres contrôle (un FlexGrid par exemple) lui te permet d’atteindre plusieurs valeurs dans le même temps, avec sa propriété .TextMatrix(Row,Col)).
Tu pourrais écrire

Code:

MSFlexGrid1.TextMatrix(2, 1) = MSFlexGrid1.TextMatrix(1, 1) + 1

Pour le MSChart, il faut te brancher sur le Row/column voulu, mémoriser la valeur, puis tu peux utiliser ce mémo pour manipulation en te branchant sur un nouveau Row/column.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim I As Integer Dim OldValue As Long MSChart1.Row = 1 MSChart1.Column = 1 ' en suposant que la valeur à manipuler se trouve en colonne 1 OldValue = MSChart1.Data 'memo de la valeur, futur point précédent dans la boucle For I = 2 To MSChart1.RowCount MSChart1.Row = I ' je voudrais faire par exemple MSCHART1.DATA = la valeur du point précédent + 1 OldValue = MSChart1.Data + OldValue MSChart1.Data = OldValue Next I