自己写一个函数来分段控制保存，也是用文件操作函数啊~！

保存的代码，你看看吧，

 Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

        SaveFileDialog1.Filter = "文本文件（*.txt)|*.txt"
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If

    End Sub