Question

vb 2005 在读取一个txt文件的时候 怎么可以显示一个进度条

我现在在VB中读取一个txt文件，并显示在一个textbox中，请问如何设置一个进度条，使之与读取进度相关联。
这样做主要是因为读入的数据比较多，想判断是否死机。还请高手赐教，谢谢

Answer 1

Dim dr As New StreamReader("文件名")
Dim l As Long = dr.BaseStream.Length
ProgressBar1.Maximum = l
Dim i As Integer
Dim c(l) As Char
For i = 0 To l
Application.DoEvents()
ProgressBar1.Value = i
dr.Read(c, i, 1)
Next
TextBox1.Text = CStr(c)

当然这不是最好的读取文件的方法，具体读取文件方法根据你自己的程序去写吧

Answer 2

呵呵，用richtextbox控件的loadfile属性，加载文本的速度特别快，根本不需要进度条。

RichTextBox1.LoadFile(fileName, RichTextBoxStreamType.PlainText)

Answer 3

那就按行读吧。读一行，进度条走一下。