Beginner
Date of registration: Jan 15th 2011
Location: Sarasota, FL
Occupation: Cabinet Design
Hobbies: Programming
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Sub Form_Load() RichTextBox1.Text = "" RichTextBox1.appendText "Hey there," End Sub Public Sub SaveRTF(RTB As RichTextBox, RTFFileName As String) Dim fos As New java#io#FileOutputStream(New File(RTFFileName)) Dim Doc As javax#swing#text#Document = RTB.Parent.getDocument Dim kit As javax#swing#text#EditorKit = RTB.Parent.getEditorKit Call kit.write(fos, Doc, 0, Len(RTB.Text)) fos.close End Sub Public Sub Command1_Click() SaveRTF(RichTextBox1,"c:\test.rtf") End Sub |
Quoted
with formatting & font designations which change a number of times throughout the document.
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 |
Public Sub SaveRTF(RTB As RichTextBox, RTFFileName As String) Dim fos As New java#io#FileOutputStream(New File(RTFFileName)) Dim doc As javax#swing#text#StyledDocument = RTB.Parent.getStyledDocument() Dim kit As New javax#swing#text#html#HTMLEditorKit kit.write(fos, doc, 0, doc.getLength()) fos.close End Sub Public Sub Command1_Click() SaveRTF(RichTextBox1,"c:\test.html") End Sub |
Beginner
Date of registration: Jan 15th 2011
Location: Sarasota, FL
Occupation: Cabinet Design
Hobbies: Programming