从多个RICH TEXT EDITORS写入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

它会创建一个新的richtextbox，附加现有richtextbox的内容，并保存该文件。

编辑更优雅的解决方案可能是将所有富文本框放在面板中并循环遍历它们：

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