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

Posted 2023-05-10

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

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)

当然这不是最好的读取文件的方法，具体读取文件方法根据你自己的程序去写吧 参考技术A 呵呵，用richtextbox控件的loadfile属性，加载文本的速度特别快，根本不需要进度条。

RichTextBox1.LoadFile(fileName, RichTextBoxStreamType.PlainText) 参考技术B 那就按行读吧。读一行，进度条走一下。

vb text1怎么样读取txt

要用 树状图 那种的自己选取的读取，不要绝对路径的。
一楼的，你说的正是我不想要的。。具体看图

Private Sub Command1_Click()
Dim s As String
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
s = CommonDialog1.FileName
Open s For Input As #1 '绝对相对都可以
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
有不清楚的 hi 我 参考技术A - - 不知道你要达到什么效果
但是读写txt 一般都是
open "路径" for input asd #1 '绝对相对都可以
do while not eof(1)
ling input #1,s
text1.text=text1.text & s & vbcrlf
loop
close #1