为了感谢刚才那么多人关注我的问题 在开一贴

Question

  Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Dim strFile As String = ""
        OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt"
        '打开文本的方式  判断 是否选择正确格式的文档并且点击确定
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            strFile = OpenFileDialog1.FileName.ToString().Trim()
        End If
        '打开文档
        Dim openFile As New IO.FileStream(strFile, IO.FileMode.Open)
        '读取文档
        Dim readFile As New IO.StreamReader(openFile)
        '从头开始
        readFile.BaseStream.Seek(0, IO.SeekOrigin.Begin)
        '控制TextBox 控件是否能够接受和显示多行文本
        Me.txtRead.Multiline = True
        '赋给文本框
        Me.txtRead.Text = readFile.ReadToEnd
        '关闭链接源
        openFile.Close()
    End Sub
上面是打开的方式  谁帮我改下改成保存的方式    还有帮我解决下 为什么打开乱码的问题 ？ 谢谢啦上一个帖子

Answer 1

System.Text.Encoding.Default了解一下这个

Answer 2

不用这么复杂，参考：    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt"
        Me.txtRead.Multiline = True
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Me.txtRead.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName, System.Text.Encoding.UTF8)
        End If    End Sub

Answer 3

还是乱码就把System.Text.Encoding.UTF8换成System.Text.Encoding.GetEncoding("gb2312")试试