| 查看: 1429 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有6人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有6人回复
-
现代”学阀”该如何界定
已经有14人回复
-
求合成方法
已经有8人回复
-
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？
已经有4人回复
-
有机合成以后会不会被AI改变？做科研的虫友怎么看
已经有8人回复
-
我的奶奶
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 这种图是怎么画的？用origin吗？
已经有4人回复
5楼2014-12-01 22:51:08
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