怎样用mschart实现实时曲线

marketcn 2003-05-11 02:14:56

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

...全文

239 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

pcitman 2003-05-12

打赏
举报

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

marketcn 2003-05-11

打赏
举报

楼上的，能给个例子吗？

pcitman 2003-05-11

打赏
举报

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

marketcn 2003-05-11

打赏
举报

自己up

marketcn 2003-05-11

打赏
举报

谢谢楼上，但若不用数据库，用数组怎么实现？

lihonggen0 2003-05-11

打赏
举报

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

marketcn 2003-05-11