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
相关问答：
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
