VB.NET

VB.NET RSS

Threaded Backup Utility

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Oct 2006

Posts: 169

Reputation: ptaylor965 is an unknown quantity at this point

Solved Threads: 19

ptaylor965 ptaylor965 is offline

Offline

Junior Poster

Threaded Backup Utility

Sep 4th, 2007

I have a backup utility that copies all files and folder into a backup area

This can take some time as the files take up 92Mb over a 1Mbps Data Link

I have added multi-threading to the utility so that the copy can be aborted and so the GUI keeps active.
but i would like to add a progress bar based on the current number of files copied.

The only problem is that the only area that can access the progress bar is the Main Thread which is not the Thread doing the file copies.

Is there any way to put the Progress bar in the copying thread, Access the forms control from another thread or create a new form control that is on the Form but generated by the Copying Thread?

Peter Taylor
Visual Basic.NET Application Developer

TaylorsNet
http://www.taylorsnet.co.uk

•

Join Date: Jun 2007

Posts: 322

Reputation: Hamrick will become famous soon enough

Solved Threads: 33

Hamrick

Offline

Posting Whiz

Re: Threaded Backup Utility

Sep 5th, 2007

•

Is there any way to put the Progress bar in the copying thread, Access the forms control from another thread or create a new form control that is on the Form but generated by the Copying Thread?

Yes, there is!

What you need to do is access the controls through a dummy interface that calls Invoke on the control instead of manipulating it directly if it's not on the main thread.

 Help with Code Tags 
 vbnet Syntax (Toggle Plain Text) 
Delegate Sub SetProgressPropertyCallback( ByVal property As String, ByVal value As Integer )
 
Private Sub SetProgressProperty( ByVal property As String, ByVal value As integer )
  If ProgressBar1.InvokeRequired Then
    Dim d As New SetProgressPropertyCallback( AddressOf SetProgressProperty )
 
    Me.Invoke( d, New Object() { property, value } )
  Else
    Select Case property
      Case "Value"
        ProgressBar1.Value = value
      Case "Max"
        ProgressBar1.Maximum = value
      Case "Min"
        ProgressBar1.Minimum = value
    End Select
  End If
End Sub
Delegate Sub SetProgressPropertyCallback( ByVal property As String, ByVal value As Integer )

Private Sub SetProgressProperty( ByVal property As String, ByVal value As integer )
  If ProgressBar1.InvokeRequired Then
    Dim d As New SetProgressPropertyCallback( AddressOf SetProgressProperty )

    Me.Invoke( d, New Object() { property, value } )
  Else
    Select Case property
      Case "Value"
        ProgressBar1.Value = value
      Case "Max"
        ProgressBar1.Maximum = value
      Case "Min"
        ProgressBar1.Minimum = value
    End Select
  End If
End Sub