CODE
PrintLine(1, Text1.Text, Text1.ForeColor, Text1.Font)
This code with the rest of my code saves the text however it doesn't save the text color or font to the RTF.
do you know how I could do this?
here is the rest of the code if this helps:
CODE
Public Sub saveas_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles saveas.Click
cddOpen.Filter = "Rich Text Files (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
cddSave.Filter = "Rich Text Files (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
cddSave.ShowDialog()
cddOpen.FileName = cddSave.FileName
filename = cddOpen.FileName
FileOpen(1, cddOpen.FileName, OpenMode.Output)
PrintLine(1, Text1.Text, Text1.ForeColor, Text1.Font)
FileClose(1)
Me.Text = cddOpen.FileName & foreverlabel
End Sub
This post has been edited by mangoman: 23 Sep, 2009 - 08:51 AM