| 查看: 1443 | 回复: 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 |
回复此楼» 猜你喜欢
极限拉扯，如何抉择
已经有15人回复
-
申请科研项目纯靠实力能成功吗？
已经有8人回复
-
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 这种图是怎么画的？用origin吗？
已经有4人回复
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
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
5楼2014-12-01 22:51:08
200