vb.net - 从多个富文本编辑器写入 vb.net 中的 RTF 文件

Question

我有一个带有 4 个富文本编辑器的基于文本的应用程序。当我点击保存按钮时，所有这些富文本编辑器的内容都必须保存到一个 RTF 文件中！！

Answer 1

这是一个可行的，虽然不是特别优雅的解决方案：

    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

它创建一个新的富文本框，附加现有富文本框的内容，并保存文件。

编辑一个更优雅的解决方案可能是将所有richtextboxes放在一个面板中并循环它们：

    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")