Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

\'保存压缩文件

Dim fso As New SaveFileDialog

If fso.ShowDialog = Windows.Forms.DialogResult.OK Then

GzipFile(fso.FileName)

End If

End Sub

Private Sub GzipFile(ByVal FileName As String)

Try

\'定义文件流，用于写入压缩流

Dim fs As FileStream = New FileStream(FileName, FileMode.Create, FileAccess.Write)

\'定义压缩流，用于压缩数据

Dim compressStream = New GZipStream(fs, CompressionMode.Compress, False)

\'定义写入操作流，用于向压缩流写入数据

Dim sw As StreamWriter = New StreamWriter(compressStream, System.Text.Encoding.GetEncoding(\"GB2312\"))

sw.WriteLine(Me.RichTextBox1.Text)

sw.Close()

MsgBox(\"压缩文件成功\")

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

Private Function Decompress(ByVal FileName As String)

Dim DeCompressStr As String = \"\"

\'定义文件流，用于读取数据

Dim fs As New FileStream(FileName, FileMode.Open, FileAccess.Read)

\'定义压缩流，用于解压缩，生成解压流

Dim DecomprssStream As New GZipStream(fs, CompressionMode.Decompress, False)

\'定义读取操作流，用于从压缩流读取数据

Dim sr As New StreamReader(DecomprssStream, System.Text.Encoding.GetEncoding(\"GB2312\"))

\'返回读取出的内容()

DeCompressStr = sr.ReadToEnd

sr.Close()

Return DeCompressStr

End Function

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

\'打开压缩的文件，以读取其内容

Dim fso As New OpenFileDialog

If fso.ShowDialog = Windows.Forms.DialogResult.OK Then

Me.RichTextBox1.Text = Decompress(fso.FileName)

MsgBox(\"解压内容完成\")

End If

End Sub

End Class