实例079RTF文件的保存

最新推荐文章于 2023-01-15 18:32:35 发布

ngbshzhn

最新推荐文章于 2023-01-15 18:32:35 发布

阅读量437

点赞数

分类专栏： # VB2010编程技巧与实例

本文链接：https://blog.youkuaiyun.com/ngbshzhn/article/details/105912672

版权

VB2010编程技巧与实例专栏收录该内容

148 篇文章

订阅专栏

本文介绍了如何使用富文本框的SaveFile和LoadFile方法进行文件的保存和读取，重点讨论了不同文件类型，如PlainText、RichNoOleObjs、RichText、TextTextOleObjs和UnicodePlainText在RTF格式处理中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

富文本框的SaveFile方法用于保存文件，LoadFile方法用于读取文件。SaveFile和LoadFile方法有两个参数，一个是文件名，另一个是文件类型。

文件类型是System.Windows．Forms名称空间下定义的RichTextBox.StreamType枚举类型的值，它的值
包括：

PlainText．表示纯文本；
RichNoOleObjs，表示用空格代替OLE对象的富文本格式（RTF格式）流，且该值只在用于RichTextBox控件的SaveFile方法时有效：
RichText，表示RTF格式流；
TextTextOleObjs，表示具有OLE对象的文本表示形式的纯文本流；该值只有用于 RichTextBox控件的SaveFile方法时才有效；UnicodePlainText，包含用空格代替对象链接与嵌入(OLE)对象的文本流，该文本采用Unicode编码。

Public Class Form1
    '打开文本文件
    Private Sub mnFileOpenTxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFileOpenTxt.Click
        dlgOpenFile.Filter = "文本文件|*.txt"
        If dlgOpenFile.ShowDialog = DialogResult.OK Then
            rtxtArea.LoadFile(dlgOpenFile.FileName, RichTextBoxStreamType.PlainText)
        End If
    End Sub
    '打开RTF文件
    Private Sub mnFileOpenRtf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFileOpenRtf.Click
        dlgOpenFile.Filter = "RTF文件|*.rtf"
        If dlgOpenFile.ShowDialog = DialogResult.OK Then
            rtxtArea.LoadFile(dlgOpenFile.FileName, RichTextBoxStreamType.RichText)
        End If
    End Sub
    '保存文本文件
    Private Sub mnFileSaveTxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFileSaveTxt.Click
        dlgSaveFile.Filter = "文本文件|*.txt"
        If dlgSaveFile.ShowDialog = DialogResult.OK Then
            rtxtArea.SaveFile(dlgSaveFile.FileName, RichTextBoxStreamType.PlainText)
        End If
    End Sub
    '保存RTF文件
    Private Sub mnFileSaveRtf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFileSaveRtf.Click
        dlgSaveFile.Filter = "RTF文件|*.rtf"
        If dlgSaveFile.ShowDialog = DialogResult.OK Then
            rtxtArea.SaveFile(dlgSaveFile.FileName, RichTextBoxStreamType.RichText)
        End If
    End Sub

   
    Private Sub mnFormatFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFormatFont.Click
        dlgFont.ShowColor = True
        dlgFont.ShowEffects = True
        dlgFont.ShowApply = True
        If dlgFont.ShowDialog = DialogResult.OK Then
            rtxtArea.SelectionFont = dlgFont.Font
            rtxtArea.SelectionColor = dlgFont.Color
        End If
    End Sub

    Private Sub mnFormatLeftAlign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFormatLeftAlign.Click
        rtxtArea.SelectionAlignment = HorizontalAlignment.Left
    End Sub

    Private Sub mnFormatCenterAlign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFormatCenterAlign.Click
        rtxtArea.SelectionAlignment = HorizontalAlignment.Center
    End Sub

    Private Sub mnFormatRightAlign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnFormatRightAlign.Click
        rtxtArea.SelectionAlignment = HorizontalAlignment.Right
    End Sub
End Class