Dim fs As filestream
Dim r As BinaryReader
fs = New FileStream("C:\temp.txt", FileMode.OpenOrCreate)
r = New BinaryReader(fs)
While r.PeekChar <> -1
TextBox1.Text &= CStr(r.ReadChar())
End While

以上方法，我只能读英文，中文部分会变成其它字符，怎么样实现中文英文都可以有？

[此贴子已经被作者于2006-12-28 15:16:15编辑过]

呵呵,在编写网络应用程序的时候俺也遇到和你一样的问题,查了一些资料,没有反映,期待中,哈哈

dim sr as new StreamReader("C:\\temp.txt",Encoding.Default,true,1)
TextBox1 = sr.ReadToEnd()
sr.Close();

哈哈,谢谢

谢谢版主，我改了一下：
Dim a As System.Text.Encoding
Dim sr As New StreamReader("C:\temp.txt", a.Default, True, 1)
TextBox1.Text = sr.ReadToEnd()
sr.Close()

都一样啊,呵