Question

I have a text-based application with 4 Rich Text Editors. When I hit my save button, contents from all these Rich Text Editors has to be saved into a single RTF file!!

Answer 1

Here is a working, though not particularly elegant solution:

    Dim temprtb As New RichTextBox
    With temprtb
        .Select(temprtb.TextLength, 0)
        .SelectedRtf = RichTextBox1.Rtf
        .Select(temprtb.TextLength, 0)
        .SelectedRtf = RichTextBox2.Rtf
        .Select(temprtb.TextLength, 0)
        .SelectedRtf = RichTextBox3.Rtf
        .Select(temprtb.TextLength, 0)
        .SelectedRtf = RichTextBox4.Rtf
        .SaveFile("C:\Users\Admin\Documents\test.rtf")
    End With

It creates a new richtextbox, appends the contents of the existing richtextboxes, and saves the file.

EDIT A more elegant solution might be to put all the richtextboxes in a panel and loop through them:

    Dim temprtb As New RichTextBox
    For Each c As Control In Panel1.Controls
        If TypeOf (c) Is RichTextBox Then
            temprtb.Select(temprtb.TextLength, 0)
            temprtb.SelectedRtf = DirectCast(c, RichTextBox).Rtf
        End If

    Next
    temprtb.SaveFile("C:\Users\Admin\Documents\test.rtf")