终于知道答案了,不愿独享分布如下:
Dim strFileName As String
With OpenFile
.Filter = "Text files(*.txt)|*.txt|All files(*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "c:\"
.Title = "打开对话框"
End With
If OpenFile.ShowDialog = DialogResult.OK Then
strFileName = OpenFile.FileName
Dim objReader As StreamReader = New StreamReader(strFileName, System.Text.Encoding.Default) '关键就是这一句
RichTextBox1.Text = objReader.ReadToEnd.ToString
objReader.Close()
objReader = Nothing
End If
imports system.io
dim fs as new filestream("c:\text.txt",openmode.open)
dim sr as new streamreader(fs,encoding("GB2312")) '*encoding前好象还有个text,也不知道是不是的
richtextbox1.text=sr.readtoend.tostring
我也记不清了,不知道是不是对的。你可以在MSDN上查找一下Filestream类和Streamreader类。他上面就有例子。