.net随笔-vb.net读文本文件

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fileReader As String
        OpenFileDialog1.Filter = "Text Files(*.TXT)|*.TXT"
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            fileReader = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
            TextBox1.Text = fileReader
        End If
    End Sub
End Class

UTF8

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fileReader As String
        OpenFileDialog1.Filter = "Text Files(*.TXT)|*.TXT"
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            fileReader = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName, System.Text.Encoding.UTF8)
            TextBox1.Text = fileReader
        End If
    End Sub
End Class