实例057读取保存文件

RichTextBox 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.richtextbox?view=netframework-4.8

命名空间:System.Windows.Forms

程序集:System.Windows.Forms.dll

表示 Windows 多格式文本框控件。

RichTextBox富文本框允许高级的自定义格式，并且封装了很多有用的属性和方法，其中,
LoadFile，将指定文件的内容加载到RichTextbox控件;
SaveFile，将富文本框内的内容保存到指定的文件。这两个方法都需要两个参数，第一个参数用于指定文件名，第二个参数用于指定文件类型.

 

控件	属性	值	控件	属性	值
OpenFileDialog	Name	dlgOpenFile	SaveFileDialog	Name	dlgSaveFile
Button	Name	btnOpen	Button	Name	btnSave
	Text	打开文件		Text	保存文件
Button	Name	btnClear	Button	Name	btnExit
	Text	清除		Text	退出
RichTextBox	Name	rtxtFileText	Form	Name	Form1
				MinimumSize	300,100

Public Class Form1

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        dlgOpenFile.Filter = "文本文件(*.txt)|*.txt"
        Dim dlgResult As DialogResult
        dlgResult = dlgOpenFile.ShowDialog
        If dlgResult = DialogResult.Cancel Then
            Exit Sub
        End If

        Dim fileName As String = dlgOpenFile.FileName
        rtxtFileText.LoadFile(fileName, RichTextBoxStreamType.PlainText)
        Me.Text = fileName
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        dlgSaveFile.Filter = "文本文件(*.txt)|*.txt"
        Dim dlgResult As DialogResult
        dlgResult = dlgSaveFile.ShowDialog
        If dlgResult = DialogResult.Cancel Then
            Exit Sub
        End If
        rtxtFileText.SaveFile(dlgSaveFile.FileName, RichTextBoxStreamType.PlainText)
        Me.Text = dlgSaveFile.FileName

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        rtxtFileText.Clear()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Dim dlgResutl As DialogResult
        dlgResutl = MsgBox("要保存文件吗？", MsgBoxStyle.YesNoCancel, "退出")
        If dlgResutl = DialogResult.Cancel Then
            Exit Sub
        End If

        If dlgResutl = DialogResult.Yes Then
            dlgSaveFile.Filter = "文本文件(*.txt)|*.txt"
            dlgResutl = dlgSaveFile.ShowDialog

            If dlgResutl = DialogResult.Cancel Then
                Exit Sub
            End If

            rtxtFileText.SaveFile(dlgSaveFile.FileName, RichTextBoxStreamType.PlainText)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rtxtFileText.Clear()

    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        rtxtFileText.Location = New Point(0, 0)
        rtxtFileText.Size = New Size(Me.Width, (Me.Height - btnOpen.Height * 3))
        btnOpen.Location = New Point(0, Me.Height - btnOpen.Height * 3)
        btnSave.Location = New Point(btnOpen.Width, Me.Height - btnOpen.Height * 3)
        btnClear.Location = New Point(btnOpen.Width * 2, Me.Height - btnOpen.Height * 3)
        btnExit.Location = New Point(btnOpen.Width * 3, Me.Height - btnOpen.Height * 3)
    End Sub
End Class