[VB.NET] Status bar voor het kopieren van bestanden*

[Sjoerd]

Ik heb een probleem namelijk dat ik een programma hebt gemaakt om bestanden te kopieren van de ene plek naar de andere, maar dat ik totaal geen idicatie heb hoelang het nog duurt of waar hij mee bezig is, ookal heb ik dit er wel in gebakken.

Het geen wat er gebeurd is dat er in de titelbalk van mijn programma komt te staan "reageert niet" en dat hij na een tijd in 1keer van 0% naar 100% schiet en effectief wel werkt...

Even wat code samples,

code om te kopieren van bestanden en mappen:

code:

'alle bestanden backuppen
            For i As Integer = 0 To UBound(bestanden)
                Dim bestandsnaam As String = My.Computer.FileSystem.GetName(bestanden(i))
                'kijken of het een map of bestand is
                If My.Computer.FileSystem.DirectoryExists(bestanden(i)) = True Then
                    'map
                    My.Computer.FileSystem.CopyDirectory(bestanden(i), backuppath & "/" & bestandsnaam, overschrijven)
                   [b] voortgang("toon", (i / UBound(bestanden) * 100))[/b]
                Else
                    'bestand
                    My.Computer.FileSystem.CopyFile(bestanden(i), backuppath & "/" & bestandsnaam, overschrijven)
                 [b]   voortgang("toon", (i / UBound(bestanden) * 100))[/b]
                End If

code van de "voortgang"

code:

Sub [b]voortgang[/b](ByVal actie, ByVal waarde)
   ProgressBar.Value = waarde
            lblVoortgang.Text = CStr(ProgressBar.Value) & "%"

End Sub

Dus ondanks dat de sub wordt (getest met Msgbox ook) werkt hij gewoon niet en schiet pas op het einde als alles gekopieerd is in gang en gaat dus meteen van waarde 0 naar 100


wat doe ik hier fout? Behalve dat het misschien niet het meest effectieve stukje code is

[Cryothic]

Volgens mij moet je af en toe de volgende code aanroepen:

code:

Application.DoEvents()

Bijvoorbeeld aan het einde van je For lus.
Dan loopt ie ook de andere processen nog even door voor die het volgende bestand pakt.

[DemonTPx]

Ik weet niet hoe het in .net zit, maar in VB6 kon je ook je progressbar en je scherm laten refreshen (of repainten?). Misschien is dat, naast doevents ook wel handig om te gebruiken, zodat niet je venster grijs wordt..

[whoami]

Is het VB.NET ?
Zoja, kijk dan eens naar threading, of naar de BackGroundWorker class.

[Sjoerd]

Bedankt voor de reacties, ga er even mee aan de slag, het is idd vb.net

[whoami]

het is idd vb.net

Zet dat dan in je titel, want VB.NET is totaal iets anders dan VB.

[Sjoerd]

Een combinatie van zowel

- Me.Refresh()
- Application.DoEvents()

doen hun ding! bedankt!, toch ook nog is gaan bezig houden met die threading ziet er interessant uit