|
' 导入命名空间。
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Collections.Generic
Imports System.Threading
Imports System.IO
' 压缩界面的主窗体。
Public Class LOB
' 菜单项目与工具列按钮所要使用的对话框。
Private cFileDialog As CustomFileDialog
' 压缩操作的封存。
Private archive As ZipFile
' 状态列讯息。
Public Shared statusMessage As String
Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
statusMessage = Nothing
' 初始化清单检视控件。
fileListView.View = View.Details
fileListView.GridLines = True
fileListView.Columns.Add("名称", 100, HorizontalAlignment.Left)
fileListView.Columns.Add("修改日期", 100, HorizontalAlignment.Left)
fileListView.Columns.Add("大小", 120, HorizontalAlignment.Right)
fileListView.Columns.Add("压缩比率 %", 100, HorizontalAlignment.Right)
fileListView.Columns.Add("压缩后大小", 120, HorizontalAlignment.Right)
fileListView.Columns.Add("路径", 220, HorizontalAlignment.Left)
EnableControls(False)
EnableExtractRemoveButtons(False)
cFileDialog = New CustomFileDialog()
End Sub
Private Sub EnableControls(ByVal value As Boolean)
addMenuStripButton.Enabled = value
addToolStripButton.Enabled = value
extractAllMenuStripButton.Enabled = value
End Sub 'EnableControls
Private Sub EnableExtractRemoveButtons(ByVal value As Boolean)
extractMenuStripButton.Enabled = value
extractToolStripButton.Enabled = value
removeToolStripButton.Enabled = value
removeMenuStripButton.Enabled = value
End Sub 'EnableExtractRemoveButtons
Private Sub newGzipToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles newGzipToolStripButton.Click, newGzipMenuToolStripButton.Click
NewArchive(ZipConstants.GZIP)
End Sub 'newGzipToolStripMenuItem_Click
Private Sub newDeflateToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles newDeflateToolStripButton.Click, newDeflateMenuToolStripButton.Click
NewArchive(ZipConstants.DEFLATE)
End Sub 'newDeflateToolStripMenuItem_Click
Private Sub NewArchive(ByVal method As Byte)
Dim name As String = cFileDialog.NewMode()
If name Is Nothing Then
fileListView.Focus()
Return
End If
Dim mode As FileMode = FileMode.CreateNew
If File.Exists(name) Then
If ShowOverwriteDialog() = MsgBoxResult.Yes Then
mode = FileMode.Truncate
Else
fileListView.Focus()
Return
End If
End If
If archive IsNot Nothing Then
archive.Close()
End If
archive = New ZipFile(name, method, mode)
Clear()
If statusMessage.Length <> 0 Then
DisplayStatusMessage()
ChangeTitle(name, archive.CompressionMethod())
EnableControls(True)
Else
Clear()
End If
End Sub 'NewArchive ''更多.net源码和教程，来自[乐博网 www.lob.cn]
Private Function ShowOverwriteDialog() As DialogResult
Dim opt As MessageBoxOptions
If Thread.CurrentThread.CurrentUICulture.TextInfo.IsRightToLeft = True Then
opt = MessageBoxOptions.RightAlign Or MessageBoxOptions.RtlReading
Else
opt = MessageBoxOptions.DefaultDesktopOnly
End If
Return MessageBox.Show(ZipConstants.FileReplace, ZipConstants.Replace, MessageBoxButtons.YesNo, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, opt)
End Function 'ShowOverwriteDialog
Private Sub openToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles openToolStripButton.Click, openMenuStripButton.Click
Dim name As String = cFileDialog.OpenMode()
If name Is Nothing Then
fileListView.Focus()
Return
End If
If Not (archive Is Nothing) Then
archive.Close()
End If
archive = New ZipFile(name)
Clear()
If statusMessage.Length <> 0 Then
DisplayStatusMessage()
ChangeTitle(name, archive.CompressionMethod())
EnableControls(True)
Else
Clear()
End If
End Sub 'openToolStripMenuItem_Click
Private Sub closeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles closeMenuStripButton.Click
Me.Close()
End Sub 'closeToolStripMenuItem_Click
Private Sub removeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles removeToolStripButton.Click, removeMenuStripButton.Click, removeContextMenuStripButton.Click
Dim index As Integer
For index = fileListView.SelectedIndices.Count - 1 To 0 Step -1
archive.Remove(fileListView.SelectedIndices.Item(index))
Next
If fileListView.SelectedIndices.Count = 0 Then
statusMessage = String.Empty
End If
RefreshListView()
DisplayStatusMessage()
End Sub 'removeToolStripMenuItem_Click
Private Sub addToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles addToolStripButton.Click, addMenuStripButton.Click
Dim names As String() = cFileDialog.AddMode()
If names Is Nothing Then
fileListView.Focus()
Return
End If
Dim name As String
For Each name In names
Dim index As Integer = archive.CheckFileExists(name)
If index <> -1 Then
statusMessage = ZipConstants.FileExistsError
RefreshListView()
DisplayStatusMessage()
fileListView.Focus()
fileListView.Items(index).Selected = True
Else
archive.Add(name)
RefreshListView()
DisplayStatusMessage()
End If
Next name
End Sub 'addToolStripMenuItem_Click
Private Sub extractToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles extractToolStripButton.Click, extractMenuStripButton.Click
CreateDir()
Dim index As Integer
For Each index In fileListView.SelectedIndices
archive.Extract(index, "C:\temp\zipTemp")
Next index
If fileListView.SelectedIndices.Count = 0 Then
statusMessage = String.Empty
End If
DisplayStatusMessage()
End Sub 'extractToolStripMenuItem_Click '更多.net源码和教程，来自[乐博网 www.lob.cn]
Private Sub extractAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles extractAllMenuStripButton.Click
CreateDir()
archive.ExtractAll("C:\乐博网\zipTemp")
DisplayStatusMessage()
End Sub 'extractAllToolStripMenuItem_Click
Private Sub RefreshListView()
Dim entries As List(Of ZipEntry)
entries = archive.Entries
If entries Is Nothing Then
Return
End If
fileListView.Items.Clear()
EnableExtractRemoveButtons(False)
Dim entry As ZipEntry
For Each entry In entries
Dim index As Integer = entry.Name.LastIndexOf(ZipConstants.BackSlash)
entry.Name.Substring(0, index)
Dim lvi As New ListViewItem(entry.Name.Substring(index + 1))
lvi.SubItems.Add(entry.ModifiedDateTime.ToString(Thread.CurrentThread.CurrentUICulture))
lvi.SubItems.Add(entry.Size.ToString(Thread.CurrentThread.CurrentUICulture))
Dim ratio As Integer
If (entry.Size = 0) Then
ratio = 0
Else
ratio = System.Convert.ToInt32((System.Convert.ToDouble(entry.Size - entry.CompressedSize) / entry.Size * 100))
End If
ratio = IIf(ratio < 0, 0, ratio)
lvi.SubItems.Add(ratio.ToString(Thread.CurrentThread.CurrentUICulture))
lvi.SubItems.Add(entry.CompressedSize.ToString(Thread.CurrentThread.CurrentUICulture))
lvi.SubItems.Add(entry.Name.Substring(0, index))
fileListView.Items.Add(lvi)
Next entry
End Sub 'RefreshListView
Public Sub DisplayStatusMessage()
Me.ToolStripStatusLabel1.Text = statusMessage
End Sub 'DisplayStatusMessage
Private Sub ChangeTitle(ByVal name As String, ByVal method As Byte)
Dim index As Integer = name.LastIndexOf(ZipConstants.BackSlash)
Dim methodName As String = Nothing
If method = ZipConstants.GZIP Then
methodName = ZipConstants.GzipName
End If
If method = ZipConstants.DEFLATE Then
methodName = ZipConstants.DeflateName
End If
Me.Text = ZipConstants.Title + "-" + name.Substring(index + 1) + " (" + methodName + ")"
End Sub 'ChangeTitle
Private Sub Clear()
Me.Text = ZipConstants.Title
EnableExtractRemoveButtons(False)
EnableControls(False)
fileListView.Items.Clear()
RefreshListView()
End Sub 'Clear
Private Function GetFolderName() As String
Dim dir As String = String.Empty
Dim fbd As New FolderBrowserDialog()
If fbd.ShowDialog() = MsgBoxResult.Ok Then
dir = fbd.SelectedPath
End If
Return dir
End Function 'GetFolderName
Private Sub CreateDir()
If Directory.Exists("C:\temp\zipTemp") Then
Return
End If
Directory.CreateDirectory("C:\temp\zipTemp")
End Sub 'CreateDir
Private Sub fileListView_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles fileListView.SelectedIndexChanged
If fileListView.SelectedIndices.Count > 0 Then
EnableExtractRemoveButtons(True)
Else
EnableExtractRemoveButtons(False)
End If
End Sub 'fileListView_SelectedIndexChanged
Private Sub contextMenuStripButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles contextMenuStripButton.Click
extractToolStripMenuItem_Click(sender, e)
End Sub 'contextMenuStripButton_Click
Private Sub fileListView_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles fileListView.MouseUp
If e.Button <> System.Windows.Forms.MouseButtons.Right OrElse fileListView.SelectedIndices.Count = 0 Then
Return
End If
Dim info As ListViewHitTestInfo = fileListView.HitTest(e.X, e.Y)
If info.Item Is Nothing Then
Return
End If
fileContextMenuStrip.Show(fileListView, e.X, e.Y)
End Sub 'fileListView_MouseUp
Private Sub mainMenuStrip_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles mainMenuStrip.ItemClicked
End Sub
End Class
|
