vb程序打开超大txt文件（10M）

点击按钮，文本框中显示文字

Command1.Click
Text1.Text = ""
Open XXXXXXXXXXXXXX/XXXXX.txt For Input As #1
Do While Not EOF(1)
Line Input #1, st
Text1.Text = Text1.Text + st + vbCrLf
Loop
Close #1
End Sub

在打开较大文件时，速度很慢，而且经常没有响应
还有，怎样在打开的过程中显示部分文字（现在只有完全打开以后才能显示）
怎样处理？？

建议改用richtextbox控件，TextBox最大容量为64K个字符（中文一个汉字算一个）,也就是说你用Text1.Text = Text1.Text + st + vbCrLf 方式就是读入了一个10M的文件，也只能看前面的64K个字符，后面的看不到了。
当然，也能修改读入的方式。使用二进制读取后用API为TextBox赋值能够读入更大的容量(2147483647个字节)，但比较麻烦。如果没有特殊的要求，改用richtextbox是最方便的解决方式。

循环处加上Application.DoEvents()，可以优先响应系统任务，不会卡死了

Command1.Click Text1.Text = "" Open XXXXXXXXXXXXXX/XXXXX.txt For Input As #1 Do While Not EOF(1) Line Input #1, st Text1.Text = Text1.Text + st + vbCrLf doevents'加这一句试试 Loop Close #1 End Sub

把Text1.Text = Text1.Text + st + vbCrLf 放在循环之后。不过改成这样就可以了。Text1.Text = st 你既然做了一个循环读入每行，那就是说st已经包含的是文件中的每行了。回车换行符也不用，因为就是读取的每行，因为你在文件中不可能没有回车换行， 改成这样吧。 Command1.Click Text1.Text = "" Open XXXXXXXXXXXXXX/XXXXX.txt For Input As #1 Do While Not EOF(1) Line Input #1, st Loop Text1.Text = st Close #1 End Sub