新手提问..VB6.0的tchart v2010中添加很多随机颜色的曲线后,曲线颜色和图例颜色不一致~

Question

新手提问..VB6.0的tchart v2010中添加很多随机颜色的曲线后,曲线颜色和图例颜色不一致~
代码如下:界面如下:
因为曲线太多所以设置图例不显示,加了teelistbox,但是它和图例的每个序列颜色是一致的,
在此救助各位大神,有没有办法设置图例的每个系列颜色和每条曲线颜色一致~
初始的tchart里是没有添加系列的~
再次先拜谢各位大神~

Answer 1

设计界面中，在tchart控件上点鼠标右键，选属性…… ？

Answer 2

好啦 问题解决~
With TChart1
        .RefreshData
        .AddSeries scLine
        .AddSeries scLine
        .Series(2 * k - 2).XValues.DateTime = True
        .Series(2 * k - 1).XValues.DateTime = True
        .Series(2 * k - 2).Title = (ListView1.ListItems.Item(k)) & "产水量"
        .Series(2 * k - 1).Title = (ListView1.ListItems.Item(k)) & "产气量"
        .Series(2 * k - 2).VerticalAxis = aLeftAxis
        .Series(2 * k - 1).VerticalAxis = aRightAxis
        .Series(2 * k - 2).Color = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
        .Series(2 * k - 1).Color = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
        .Legend.LegendStyle = lsSeries                       
      For i = 1 To UBound(z3, 2) - 1
       TChart1.Series(2 * k - 2).AddXY (z3(k, i)), z1(k, i), "", TChart1.Series(2 * k -2).Color
       TChart1.Series(2 * k - 1).AddXY (z3(k, i)), z2(k, i), "", TChart1.Series(2 * k -1).Color
      Next
End With