[ANSWERED] change the color of parts of a real-time FastLine

[jika]

hello
I want to change the color of parts of a real-time FastLine

Private Sub Form_Load ()
Dim i
with TChart1
     For i = 1 To 15
         If (i <7) Or (i> 10) Then
             . Series (0). AsFastLine.AddRealTime i Rnd (i) / 2, "", vbRed
         else
             . Series (0). AsFastLine.AddRealTime i Rnd (i) / 2, "", vbCyan
         End If
     Next i
     . Axis.Bottom.SetMinMax 0, 16
End With
End Sub
the color does not change,
how to thank you

[Narcís]

Hi jika,

This is not possible with FastLine series, you should use Line series instead:

Code: Select all

    TChart1.Aspect.View3D = False
    TChart1.AddSeries scLine
    TChart1.Series(0).ColorEachPoint = True
    TChart1.Series(0).FillSampleValues 10

FastLine is optimized for best performance and stripped to the minimum for such purpose.

[Narcís]

Hi jika,

I posted a reply to your inquiry. I wonder why you bumped this topic. If my reply didn't answer your issue please make it clearer.

Thanks in advance.

[jika]

votre reponse est correct
j'ai fait une erreur when I bumped this topic

comment fermer un topic quand la reponse est correct

[jika]

your answer is correct
I made ​​a mistake when i bumped this topic

how to close a topic when the answer is correct

[Narcís]

Hi jika,

Ok, no problem. You can just answer saying the answer worked fine for you or you can modify the subject including "[CLOSED]" or "[ANSWERED]" prefixes or lock the topic at the bottom right quick-mod tools.