14-08-19, 10:34 PM
من أجل العم ابراهيم
هذا التعديل فيه كيفية استخدام System.Text.Encoding.UTF8
تعديل الكود savve
تعديل الكود openn
هذا التعديل فيه كيفية استخدام 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