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
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
