Γεια σε όλους :)
Παίζω με κάτι RichTextBoxes.. και θέλω να αποθηκεύσω αυτά που έχουν σε αρχείο.
Όταν το κάνω για το καθένα ξεχωριστά, όλα ΟΚ
όταν πάω να αποθηκεύσω και τα 2 μαζί όμως, αρχίζει η ιστορία.. ο κώδικάς μου είναι ο εξής:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Private Sub mniEEverythingRTF_Click(sender As System.Object, e As System.EventArgs) Handles mniEEverythingRTF.Click
sfdExport.FileName = ""
sfdExport.InitialDirectory = strSaveDir
sfdExport.DefaultExt = ".rtf"
sfdExport.FileName = RemMniHotLetter(mniExportEverything) & ".rtf"
sfdExport.Filter = "Rich Text Format|*.rtf|All Files|*.*"
Dim SaveDialogResult As DialogResult = sfdExport.ShowDialog()
If SaveDialogResult = Windows.Forms.DialogResult.OK Then
Dim tmpRichTextBox As New RichTextBox
tmpRichTextBox.Rtf = rtbWorkgroup.Rtf & vbCrLf & vbCrLf & rtbOutput.Rtf
tmpRichTextBox.SaveFile(sfdExport.FileName)
MsgBox(txtLanguage.Lines(80) & RemMniHotLetter(mniExportEverything) & txtLanguage.Lines(81) & sfdExport.FileName) ' has been successfully saved on:
End If
End Sub |
Η γραμμή νούμερο 11 λέει ξεκάθαρα ότι το κείμενο του tmp θα γίνει το κείμενο των 2 άλλων! και μετά θα σώσει τα πάντα.
Αλλά γίνεται το κείμενο μόνο του πρώτου (όποιο κι αν είναι το πρώτο, δοκίμασα και το rtbOutput σαν πρώτο, τα ίδια..)
Αν αντί για
rtbWorkgroup.Rtf, βάλω να προσθέτονται τα .Text τότε, κάνει ένα αρχείο το οποίο είναι εντελώς κενό..