| 查看: 1297 | 回复: 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 |
回复此楼» 猜你喜欢
328求调剂
已经有7人回复
-
340求调剂
已经有5人回复
-
一志愿南昌大学324求调剂
已经有4人回复
-
求调剂推荐 材料 304
已经有15人回复
-
291求调剂
已经有19人回复
-
331环境科学与工程求调剂
已经有3人回复
-
289求调剂
已经有8人回复
-
315分求调剂
已经有7人回复
-
295求调剂
已经有6人回复
-
291求调剂
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 这种图是怎么画的？用origin吗？
已经有4人回复
7楼2014-12-07 21:00:55
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
