如何使用VB画折线图

来源：百度知道 编辑：UC知道 时间：2024/05/16 13:15:14
要做一个比赛的票数统计图，希望用VB6.0做到以下：
（1）根据票数的多条折线
（2）由于是实时分析，所以大概更新频率是30s-60s一次，肯定不能单纯用mschart控件搞了……而Picture Box的Line方法没有办法上颜色及标注“某某选手”
希望有人帮助解决，谢谢！解决好有加分。

一个例子:

窗体上有一个按钮 一个能显示折线图的控件（我不大知道应该用哪个控件）
现有十二个数 设其为13-24
点击按钮时图片显示为一折线图 折线图为十二个点的连线 （1，13）（2，14）（3，15）（4，16）（5，17）.....(12，24)
请教如何编写程序

回答：

控件用MsChart，在Microsoft Chart Control 6.0(OLEDB)。

Private Sub Form_Load()
Dim CData(1 To 2, 1 To 24) As Variant
mctChart.chartType = VtChChartType2dLine
For i=1 To 12
CData(1,i)=i '1代表第一个数据
Next i
For i=13 To 24 '2代表第二个数据
CData(2,i)=i
Next i
mctChart.ChartData = CData
End Sub
参考资料：http://www.programfan.com/blog/article.asp?id=23214

Picture Box可以实现上色及文字
不过坐标要自己控制

Private Sub Command1_Click()
Picture1.Line (40, 53)-(100, 53), vbRed
With Picture1
.ForeColor = RGB(60, 100, 200)
.CurrentX = 40
.CurrentY = 40
End With