作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

        '运用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

相关软件：