Strano comportamento di un RichTextBox

[GrandeTimoniere]

In un programma (Visual Basic Express 2013) c'è un RichTextBox, ma se al suo interno carico un file RTF (generato con WordPad) si comporta come se fosse un banale TextBox. Provando, però, a incollare una porzione di testo RTF copiata da un documento di WordPad, il testo compare correttamente con tutti gli attributi impostati.

2014_10_29_HTML_RichTextBox.jpg

Probabilmente sbaglio nell'impartire il comando (in TextBox5.Text c'è il Path del file RTF):

----------------------
Dim FileReader As New System.IO.StreamReader(TextBox5.Text)
Form2.RichTextBox1.Text = FileReader.ReadToEnd
FileReader.Close()
FileReader = Nothing
----------------------

Ma dove sbaglio?

[oregon]

Consulta la documentazione della classe

http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx

e in particolare leggi le differenze tra la proprietà

Text
http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx

e la

RTF
http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx

[GrandeTimoniere]

Stupendo!

E' bastato mettere all'inizio...

Public Property Rtf As String

...e modificare il codice come segue (la variabile Buf, ovviamente, contiene il suffisso del file che si suppone sia di testo):


Dim FileReader As New System.IO.StreamReader(TextBox5.Text)
If Buf = "rtf" Then

Form2.RichTextBox1.Rtf = FileReader.ReadToEnd

Else

Form2.RichTextBox1.Text = FileReader.ReadToEnd

End If
FileReader.Close()
FileReader = Nothing

Grazie mille!

[GrandeTimoniere]

Piccolo aggiornamento: ho scoperto che se caricate un file RTF e, subito dopo, un file TXT, le impostazioni del RichTextBox sembrano "ereditare" qualche caratteristica (Font e/o attributi) del file RTF precedente. Se, però, prima di caricare il file TXT si cancella il contenuto del RichTextBox le impostazioni di font e attributi rimangono quelle di default.

Non chiedetemi perché.

Modificare quindi in:

If Buf = "rtf" Then

Form2.RichTextBox1.Rtf = FileReader.ReadToEnd

Else

Form2.RichTextBox1.Text = ""

Form2.RichTextBox1.Text = FileReader.ReadToEnd

End If
FileReader.Close()
FileReader = Nothing