急求：VB.NET 如何加快读取文本速度

[iscooller]

Dim objReader As System.IO.StreamReader
objReader = New System.IO.StreamReader(Application.StartupPath + "\txt\蔬菜检测\目录.txt", System.Text.Encoding.GetEncoding("GB2312"))
Dim sLine As String = ""
Dim arrText As New ArrayList()
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrText.Add(sLine)
End If

Loop Until sLine Is Nothing

objReader.Close()


Label1.Text = arrText(0)
Label2.Text = arrText(1)
Label3.Text = arrText(2)
Label4.Text = arrText(3)
Label5.Text = arrText(4)
Label6.Text = arrText(5)



为什么label的显示内容是一个个出来 而不是一下子都出来的，如何加快速度 ，谢谢！

[LQknife]

vb啊 帮顶

[yanlongwuhui]

试下:
Me.SuspendLayout()
Label1.Text = arrText(0)
Label2.Text = arrText(1)
Label3.Text = arrText(2)
Label4.Text = arrText(3)
Label5.Text = arrText(4)
Label6.Text = arrText(5)
Me.ResumeLayout(False)

[iscooller]

没什么变化么！！！

[skigil]

一行行读,当然有时间差,这个是VB特有的缺陷,建议这样做:
dim s as string=my.computer.filesystem.readalltext(Application.StartupPath + "\txt\蔬菜检测\目录.txt", System.Text.Encoding.GetEncoding("GB2312"))

dim arrText() as string=s.split(vbcrlf)'这个函数有重载的哦
Label1.Text = arrText(0)
Label2.Text = arrText(1)
Label3.Text = arrText(2)
Label4.Text = arrText(3)
Label5.Text = arrText(4)
Label6.Text = arrText(5)

试试吧

[iscooller]

速度差不多， 位置也难控制了

[yanlongwuhui]

那就把Me.ResumeLayout(False)改成Me.ResumeLayout(True)

[skigil]

什么位置难控制?

[iscooller]

呵呵 还是一样 是不是读取的方法不对哦

[iscooller]

to：skigil vbcrlf 跟图片对不上 显示还是一个个出来滴

[skigil]

怎么可能呢?你的文件很大吗/

[skigil]

vbcrlf跟图片有啥关系啊?

[HimeTale]

Dim arrText As New List(Of String);

大概能快一点点

[iscooller]

你回车的高度和我想要放的位置不一样么！

[iscooller]

帮忙帮忙～～～

[iscooller]

顶 没人晓得了么？