| 查看: 1233 | 回复: 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 |
回复此楼» 猜你喜欢
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
这种图是怎么画的？用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