DotNetZip extraction progress reporting\event help

[madlan]

Hi All.

Could someone give me some advice on reporting progress from a zip extraction using the DotNetZip Library?

I'm not an experienced programmer so having trouble understanding this.

I've created an event to report the progress (ProgressEventHandler) but the progress bar is still not updating.

The ExtractProgressEventArgs class TotalBytesToTransfer and BytesTransferred which I believe I need to use to set the maximum and increment value of the progress bar.

I'm trying to report the whole extraction (Resulting in a smooth progress bar for the whole unzip) rather than a steped progress bar per file as the examples given on the DotNetZip site.

So far I have:

Imports Ionic.Zip
Imports System.Threading
Imports System.Reflection
 
Public Class Form1
 
    Dim zipfileName As String = "C:\Test\test123.zip"
    Dim extractDirectory As String = "C:\Test\"
    Private Delegate Sub UpdateProgressBarInvoker(ByVal Value As Integer)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
 
    Private Sub Unzip()
        Dim args(2) As String
        args(0) = Me.zipfileName
        args(1) = Me.extractDirectory
        Dim t = New Thread(AddressOf Me.UnzipFile)
        t.Start(args)
        While Me.BackgroundWorker1.IsBusy
            ' Keep UI messages moving, so the form remains 
            ' responsive during the asynchronous operation.
            Application.DoEvents()
        End While
    End Sub
 
    Private Sub UnzipFile(ByVal args As String())
        Using zip As ZipFile = ZipFile.Read(args(0))
            AddHandler zip.ExtractProgress, AddressOf ProgressEventHandler
 
            Dim entry As ZipEntry
            For Each entry In zip
                entry.Extract(args(1), ExtractExistingFileAction.OverwriteSilently)
            Next
        End Using
    End Sub
 
    Private Sub ProgressEventHandler(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)
        SetControlPropertyValue(ProgressBar1, "Maximum", e.TotalBytesToTransfer)
        SetControlPropertyValue(ProgressBar1, "value", e.BytesTransferred)
    End Sub
 
 
 
 
    Delegate Sub SetControlValueCallback(ByVal oControl As Control, ByVal propName As String, ByVal propValue As Object)
 
    Private Sub SetControlPropertyValue(ByVal oControl As Control, ByVal propName As String, ByVal propValue As Object)
        If (oControl.InvokeRequired) Then
 
            Dim d As New SetControlValueCallback(AddressOf SetControlPropertyValue)
            oControl.Invoke(d, New Object() {oControl, propName, propValue})
        Else
            Dim t As Type = oControl.[GetType]()
            Dim props As PropertyInfo() = t.GetProperties()
            For Each p As PropertyInfo In props
                If p.Name.ToUpper() = propName.ToUpper() Then
                    p.SetValue(oControl, propValue, Nothing)
                End If
            Next
        End If
    End Sub
 
    Private Sub BtnUnzip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUnzip.Click
        Unzip()
    End Sub
 
End Class
 

I'm using examples from here(Half way down):
http://dotnetzip.codeplex.com/wikipage?title=VB-Examples&referringTitle=Examples

Thank you in advance.