vb 使用二维数组画折线 - VB / 基础类

自己编了一个使用二维数组画折线的程序，始终有问题。

从串口读入 a 和 b 值，两者一一对应。

a 为 横坐标，b 为纵坐标 ，在坐标上画好点后，我想把相邻的点用直线连接起来，

就使用了二维数组 array（1 to 2，1 to 100）As Long

然后用 picture1.line 来画图，原理是使用后一个点的坐标 减去前一个点的坐标。（用循环完成）

但是 就是 说啥这个图也画不出来！！！！！

我觉得我的想法没问题啊，程序也反复看了几十遍都有了！！！

有哪位好心的达人朋友帮帮忙吧，我都晕了！！！

最好有循环部分的代码让我参考一下，我觉得自己对这个问题有个死结解不开了！！

谢谢！！

---

贴代码吧，帅哥

---

只有把picture1的 scale（left,top,width,height属性设置好了，画线不难吧，贴重点代码看看

---

For i = 1 To 99
  Picture1.Line (array(1, i), array(2, i)) - (array(1, i + 1), array(2, i + 1)) 
Next i

实际上，还有一个问题，就是点的实际坐标到图上坐标的转换。

假设你的实际坐标范围是 x: 0- 1000，y: 0-200，均为实数。你的图上坐标是 X: 0-100, y: 0-20，像素坐标必须为整数。

For i = 1 To 100
  array(1, i) = array(1, i) \ 10
  array(2, i) = array(2, i) \ 10
Next i

然后才能画。

---

你的代码呢？没有代码至少也把数组中的数据贴一下，并举例描述怎么减得到下一坐标点。

---

其实，更简单的方法是，直接把你的二维数组赋值给 MSChart 控件，它会自动绘图。

---

http://topic.csdn.net/u/20100520/15/ad24c110-af