VB中读取TXT中的数据并且在picturebox上画图

Question

我现在那个txt文件里只有1列数据，有几十万行了。读取的时候是字符串，但是我转换成整型数据他就提示下标越界。读取了以后怎么画图啊？
还有就是这个数据量比较大，我想用滚动条进行查看。网上有说用2个picturebox控件，外加一个Hscroll。我看的不是很明白啊，小弟是初学者，刚接触VB。有没有高手指点一下啊？可以提供相关例子不，谢谢了。

Answer 1

本帖最后由 bcrun 于 2012-01-29 20:57:22 编辑

  

Answer 2

Dim read1() As Double
Dim a() As String
Dim i As Integer
Private Sub Command1_Click()
Open "F:\心电data.txt" For Input As #1
Do Until EOF(1)
ReDim Preserve a(i)
Input #1, a(i)
read1(i)=val(a(i)) ' 这一行会报错，说是下标越界。
i = i + 1
Loop
Close #1

Answer 3

先‘就事论事’说一下：你的 read1() 声明为动态数组，但没重定义数组大小就使用，当然会出现“下标越界”的错误。
代码应该改成：
ReDim Preserve a(i), read1(i)
另外想说的是：
　　你说‘有几十万行……’，象你那样在循环中不停地 ReDim Preserve 恐怕效率太低了吧？？？？？