Question

vc mschart动态绘制曲线刷新时闪屏怎么办啊？请各位高手手指点！

Answer 1

Private Sub Form_Load()
Randomize Timer
Dim i As Integer, jls As Integer
Dim Values(1 To 15, 1 To 3)

For i = 1 To 15
Values(i, 1) = "T" & Format(i, "00")
Next i

For i = 1 To 15
Values(i, 2) = Rnd * 100
Values(i, 3) = Rnd * 50
Next i

MSChart1.chartType = VtChChartType2dCombination
MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
MSChart1.ChartData = Values

End Sub