| 查看: 1246 | 回复: 6 | ||
[求助]
我用vb chart 控件，画折线图，出不来，求高人给看看， 已有1人参与
|
|
四个点的坐标分别为（0,20）（1,80）（4,200）（10,270），总显示索引越界，我也不知道哪错了，求高人指导， mydata(1, 1) = 0: mydata(1, 2) = 20 mydata(2, 1) = 1: mydata(2, 2) = 80 mydata(3, 1) = 4: mydata(3, 2) = 200 mydata(4, 1) = 10: mydata(4, 2) = 270 MSChart1.chartType = VtChChartType2dLine MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i) MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 20 MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0 MSChart1.ColumnCount = 4 MSChart1.RowCount = 1 MSChart1.TitleText = "自动控温系统温度显示" MSChart1.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "时间 / 分钟" MSChart1.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "温度 / ℃" For Column = 1 To 4 For Row = 1 To 2 MSChart1.Column = Column MSChart1.Row = Row MSChart1.ChartData = mydata Next Row Next Column End Sub |
回复此楼» 猜你喜欢
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
要不要辞职读博？
已经有6人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有4人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 这种图是怎么画的？用origin吗？
已经有4人回复
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
2楼2014-11-28 21:19:59
3楼2014-11-29 00:27:20
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
【答案】应助回帖
|
我的程序 Private Sub Command1_Click() Dim MyData(10, 10) As Double Dim temp(1 To 500) As Double '-----x轴坐标值-----Y轴坐标值---------- For i = 1 To 500 temp(i) = i Next i i = 300 MyData(1, 1) = 0: MyData(1, 2) = 20 MyData(2, 1) = 1: MyData(2, 2) = 80 MyData(3, 1) = 4: MyData(3, 2) = 200 MyData(4, 1) = 10: MyData(4, 2) = 270 MSChart1.chartType = VtChChartType2dLine MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i) MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0 ''''MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 10 MSChart1.ColumnCount = 4 MSChart1.RowCount = 1 MSChart1.TitleText = "自动控温系统温度显示" MSChart1.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "时间 / 分钟" MSChart1.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "温度 / ℃" MSChart1.ChartData = MyData End Sub --------------------------- 运行结果如图。 你的这个程序有点意思，特别是最后的那个for循环，要不要都一样。 |
» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : QQ截图20141129162204.png
2014-11-29 16:25:07, 5.79 K
4楼2014-11-29 16:27:30
5楼2014-12-01 22:51:08
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
6楼2014-12-04 00:07:09
7楼2014-12-07 21:00:55