مشكل در خواندن فايل فارسي

[f_g1348]

سلام
من كدي نوشتم كه متن يك فايل متني رو بخونه و درون يك textbox بريزه ولي وقتي متن رو در textbox نمايش ميده بصورت مربع مربع مي باشد ( متن فارسي مي باشد )
كد بصورت زير مي باشد
لطفاً من را راهنمايي كنيد

Private Sub FileReader()
Dim utf8 As New Text.UTF8Encoding
Dim OpenFile As New OpenFileDialog
OpenFile.ShowDialog()
If OpenFile.FileName <> "" Then
TextBox2.Clear()
Dim fs As New FileStream(OpenFile.FileName, FileMode.Open, FileAccess.Read)
Dim ar(fs.Length) As Byte

For i As Integer = 0 To fs.Length - 1
ar(i) = fs.ReadByte
Next

TextBox2.Text = utf8.GetString(ar)
fs.Close()

End If
End Sub

[mpg_of_shb]

از این استفاده کن

Me.Text = IO.File.ReadAllText("c:\a.txt", System.Text.Encoding.Unicode)

[f_g1348]

نه دوست عزیز همچنان همانگونه است

[Heidari66]

Dim utf8 As New Text.UTF8Encoding را به Dim utf8 As New System.Text.UnicodeEncoding تبدیل کنید ببینید درست میشه

[f_g1348]

همچنان مشكل دارد

[Heidari66]

احتمالا مشکل از ویندوز شماست
چون من هم روش شما و هم روش اون دوستمون رو امتحان کردم جواب داد...

[f_g1348]

دوستان من روي سيستم ديگري هم تست كردم ولي باز هم همينه
اگه ممكنه فايل متني كه استفاده مي كنيد براي من بگداريد تا من اون را چك كنم
سوال ديگر هم اينكه روي خود textbox تنظيمات خاصي بايد تعيين كرد؟

[f_g1348]

دوستان كسي نيست كمك كنه !؟

[Saman_12]

فایل شما باید به صورت آنیکد ذخیره بشه