C# / VB.NET - Editr di testo con icona ...

Il mio editor di testi (in vb net 2005)crea i suoi file in formato .art ed associa ad essi una sua iconcina, ma li legge come fossero txt perdendo tutto il contenuto grafico precedentemente inserito nella richtextbox( a me piacerebbe se li considerasse e leggesse in rtf...); Se invece provo a salvarli in rtf e successivamente a riaprirli cliccandoci dal desktop, compaiono caratteri strani, mentre se lo apro con l'editor è tutto ok...PERCHE'? Dov'è che sbaglio? JEAN

Dipende con che cosa li apri. Se lo fai col notepad è naturale: vedreai tutti i tag RTF. Se lo fai con Word non è normale ma non dovresti vederli neanche nell'editor: se si tratta di questo caso non so che dire.

Allora...mi spiego meglio: ho realizzato un editor che apre e salva file in RTF. Fin qui tutto ok: li crea e li legge benissimo se li apro direttamente daLL'editor; se, invece tento di cliccare sull'icona del file, il mio editor la legge male (tutti caratteri strani)

allego codice:

Private Sub OpenFile()
' APRI FILE
OpenFileDialog1.Title = "EDITOR - APRI DOCUMENTO"
OpenFileDialog1.DefaultExt = "rtf"
OpenFileDialog1.Filter = "RTF files|*.rtf"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName = "" Then Exit Sub

Dim strExt As String
strExt = System.IO.Path.GetExtension(OpenFileDialog1.FileName)
strExt = strExt.ToUpper()

Select Case strExt
Case ".RTF"
rtbDoc.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
Case Else
Dim txtReader As System.IO.StreamReader
txtReader = New System.IO.StreamReader(OpenFileDialog1.FileName)
rtbDoc.Text = txtReader.ReadToEnd
txtReader.Close()
txtReader = Nothing
rtbDoc.SelectionStart = 0
rtbDoc.SelectionLength = 0
End Select

currentFile = OpenFileDialog1.FileName
rtbDoc.Modified = False
Me.Text = "EDITOR: " & currentFile.ToString()

End Sub


MENTRE , per SALVARE:

'SALVA
If currentFile = "" Then
SaveAsToolStripMenuItem_Click(Me, e)
Exit Sub
End If

Dim strExt As String
strExt = System.IO.Path.GetExtension(currentFile)
strExt = strExt.ToUpper()

Select Case strExt
Case ".RTF"
rtbDoc.SaveFile(currentFile)
Case Else
' to save as plain text
Dim txtWriter As System.IO.StreamWriter
txtWriter = New System.IO.StreamWriter(currentFile)
txtWriter.Write(rtbDoc.Text)
txtWriter.Close()
txtWriter = Nothing
rtbDoc.SelectionStart = 0
rtbDoc.SelectionLength = 0
rtbDoc.Modified = False
End Select

Me.Text = "EDITOR: " & currentFile.ToString()

End Sub

Magari l'errore è nell'evento load, che presumo gestisca il passaggio di parametri da riga di comando... prova a postare quello.

grazie a quanto sembra ora funziona.