font opslaan

[kayhup]

Ik heb een simpel tekstverwerkertje gemaakt, en ik heb nu dat als je hem opslaat dat alleen de tekst opslaat. Maar ik wil dat ie de Font, Color en de tekst opslaat... En als je op openen klikt dat ie de font, color, en de tekst weer opend... Hoe kan ik dat doen alvast bedankt...

P.S. ik heb deze code:

Voor opslaan:


SaveFileDialog1.Filter = "Text files (*.txt)|*.txt"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, textbox.Text)
FileClose(1)
End If


Voor openen:


Dim AllText As String = "", LineOfText As String = ""
OpenFileDialog1.Filter = "Text files (*.TXT)|*.TXT"
OpenFileDialog1.ShowDialog() 'display Open dialog box
If OpenFileDialog1.FileName <> "" Then
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
LineOfText = LineInput(1)

AllText = AllText & LineOfText & vbCrLf
Loop 'update label
textbox.Text = OpenFileDialog1.FileName
textbox.Text = AllText
textbox.Enabled = True
Catch
MsgBox("Error opening file. It might be too big.")
Finally
FileClose(1) 'close file
End Try
End If

 

[Guus2005]

Zal niet meevallen in een gewoon txt bestandje.
Als je een rtf bestand gebruikt gaat dat eigenlijk automatisch.

doe er je voordeel mee!

Succes!