运用StreamReader从一个标准的文本文件读行信息。

'运用StreamReader从一个标准的文本文件读行信息。

Dim srReadLine As New System.IO.StreamReader("D:\1.txt", System.Text.Encoding.GetEncoding("GB2312"))

srReadLine.BaseStream.Seek(0, System.IO.SeekOrigin.Begin)

While srReadLine.Peek() > -1

TextBox1.Text += srReadLine.ReadLine() & vbCrLf

End While

srReadLine.Close()