怎样用mschart实现实时曲线

Question

在数据采集中，怎样用mschart实现实时曲线？

Answer 1

Dim CN   As New adodb.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New adodb.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select top 10 * from orders", CN, adOpenDynamic, adLockBatchOptimistic    With MSChart1
        .ChartType = VtChChartType2dLine
        .TitleText = "折线图示例"
        .RowCount = Rs.RecordCount
        For i = 1 To Rs.RecordCount
         .Row = i
         .Data = Rs("freight")
         .RowLabel = Rs("freight")
         .ColumnCount = 1
         .ColumnLabel = "freight"
         Rs.MoveNext
        Next    End With

Answer 2

mschart实现实时曲线会闪烁，很难看的，我试过了
最好用内存位图解决

Answer 3

例子我不会给你，给你个提示自己查,用以下的api
CreateCompatialDC
CreateCompatialBitMap
SelectObject
BitBlt