Discussion :

[bypbop]

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 :

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

[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

[ProgElecT]

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 :

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

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 :

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

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