处理压缩事件
现在，既然定义好了主要的压缩和解压例程，那么接下来你就可以为各种按钮进行编码了。相应于Compress按钮的事件处理器如下：
Private Sub btnCompress_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnCompress.Click
'---用来存储压缩的数据---
Dim compressedData() As Byte
'---压缩数据---
If rbGZipStream.Checked Then
compressedData = Compress("Gzip"，System.Text.Encoding.ASCII.GetBytes(txtBefore.Text))
Else
compressedData = Compress("Deflate"，System.Text.Encoding.ASCII.GetBytes(txtBefore.Text))
End If
'---把压缩的数据复制到一个字符串中---
Dim i As Integer
Dim s As New System.Text.StringBuilder()
For i = 0 To compressedData.Length - 1
If i <> compressedData.Length - 1 Then
s.Append(compressedData(i) & " ")
Else
s.Append(compressedData(i))
End If
Next
'---显示压缩的数据为一个字符串---
txtAfter.Text = s.ToString
End Sub
在txtBefore控件中的数据被转换成一个字节数组，然后被压缩。然后，该压缩的数据被转换成字符串以便于在txtAfter中显示。
相应于Decompress按钮的事件处理器如下：
Private Sub btnDecompress_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnDecompress.Click
'---把压缩的字符串格式化成一个字节数组---
Dim eachbyte() As String = txtAfter.Text.Split(" ")
Dim data(eachbyte.Length - 1) As Byte
For i As Integer = 0 To eachbyte.Length - 1
data(i) = Convert.ToByte(eachbyte(i))
Next
'---解压数据并且显示解压的数据---
If rbGZipStream.Checked Then
txtBefore.Text = System.Text.Encoding.ASCII.GetString(Decompress("Gzip"， data))
Else
txtBefore.Text = System.Text.Encoding.ASCII.GetString(Decompress("Deflate"， data))
End If
End Sub
它把显示在控件txtAfter中的数据转换成一个字节数组，然后发送它以便进行解压。解压缩的数据被显示回txtBefore控件中。
相应于"Select file to compress"按钮的事件处理器代码如下：
Private Sub btnSelectFile_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnSelectFile.Click
'---让用户选择一个要压缩的文件--
Dim openFileDialog1 As New OpenFileDialog()
'openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "All files (*.*)|*.*"
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
'---把文件的内容读入字节数组---
Dim fileContents As Byte()
fileContents = My.Computer.FileSystem.ReadAllBytes(openFileDialog1.FileName)
'---创建gzip文件---
Dim filename As String = openFileDialog1.FileName & ".gzip"
If File.Exists(filename) Then File.Delete(filename)
Dim fs As FileStream = New FileStream(filename， FileMode.CreateNew， FileAccess.Write)
'---压缩文件的内容---
Dim compressed_Data As Byte()
If rbGZipStream.Checked Then
compressed_Data = Compress("Gzip"， fileContents)
Else
compressed_Data = Compress("Deflate"， fileContents)
End If
If compressed_Data IsNot Nothing Then
'---把压缩的内容写进压缩的文件中---
fs.Write(compressed_Data， 0， compressed_Data.Length)
fs.Close()
End If
End If
End Sub
它读取由用户选择的文件的内容，压缩它，并且创建一个包含压缩的数据的新文件(具有一样的文件名，但是加上了一个.gzip扩展名)。
相应于"Select file to Decompress"按钮的事件处理器代码如下：
Private Sub btnDecompressFile_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnDecompressFile.Click
'---让用户选择一个要解压的文件---
Dim openFileDialog1 As New OpenFileDialog()
' openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "All GZIP files (*.gzip)|*.gzip"
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
'---把压缩的文件的内容读入到字节数组---
Dim fileContents As Byte()
fileContents = My.Computer.FileSystem.ReadAllBytes(openFileDialog1.FileName)
'---解压文件的内容---
Dim uncompressed_Data As Byte()
If rbGZipStream.Checked Then
uncompressed_Data = Decompress("Gzip"， fileContents)
Else
uncompressed_Data = Decompress("Deflat"， fileContents)
End If
'---创建解压的文件---
Dim filename As String = openFileDialog1.FileName.Substring(0， openFileDialog1.FileName.Length - 5)
If File.Exists(filename) Then File.Delete(filename)
Dim fs As FileStream = New FileStream(filename，FileMode.CreateNew， FileAccess.Write)
If uncompressed_Data IsNot Nothing Then
'---把解压内容写入到文件中---
fs.Write(uncompressed_Data， 0， uncompressed_Data.Length)
fs.Close()
End If
End If
End Sub
它读取用户选择的文件的内容，解压之，并且创建一个包含解压的数据的新文件(通过去掉它的.gzip扩展名)。
