[الرائد]

(14-08-19, 10:34 PM)Beginer كتب : من أجل العم ابراهيم
هذا التعديل فيه كيفية استخدام System.Text.Encoding.UTF8

تعديل الكود savve

PHP كود :

Sub savve()
    Try
        Dim SaveFileDialog1 As New SaveFileDialog
        SaveFileDialog1.Filter = "Rich Text Files|*.rtf|Text Files|*.txt"
        SaveFileDialog1.ShowDialog()
        IO.File.WriteAllText(SaveFileDialog1.FileName, CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Text, System.Text.Encoding.UTF8)
    Catch ex As Exception

    End Try

End Sub 


تعديل الكود openn

PHP كود :

Sub openn()
    Dim OpenFileDialog1 As New OpenFileDialog
    Dim AllText As String = "", LineOfText As String = ""
    'This bottom code is telling it to search each and ever file type
    OpenFileDialog1.Filter = "Rich Text Files|*.rtf|Text Files|*.txt"
    'This bottom code basically shows the opendialog box
    OpenFileDialog1.ShowDialog()
    Try
        CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Text = IO.File.ReadAllText(OpenFileDialog1.FileName, System.Text.Encoding.UTF8)
    Catch

    Finally

    End Try
End Sub 


شكرا لك كثير أيها المحترم , لقد حلت المشكلة نهائيا