faire evoluer progressbar pendant transfert fichier

**bansan** · 14/10/2010, 13h38

Bonjour
Je me suis mis au vb.net depuis peu

je suis actuellement en train de faire un programme totut simple qui coupe les fichier sélectionnés et les met dans un autre dossier

J'ai mis une listbox , 2 boutons , des combobox...

Tout marche nikel...
Maintenant j'aimerais mettre une barre de progression qui evolue en fonction des fichiers en train de se deplacer...(comme quand on fait un copier ou couper sur windows quoi)

en cherchant sur divers forums sur le net, je vois qu'eventuellement il serait possible d'utiliser un API
( MoveFileWithProgress)

Bien qu'ayant lu quelques tutos concernant les API ect
Je ne vois pas du tout comment pouvoir l'utiliser

J4entrevois plutot un moyen pour que ..durant le deplacement du fichier, on puisse avoir le nombre de byte du fichier a chaque laps de temps..et par la suite faire un calcul pour faire evoluer la progressbar...

Merci de votre aide

**tomlev** · 14/10/2010, 15h15

En gros, tu as 2 options:

- utiliser la méthode File.Move, en "pur" VB.NET : c'est simple, mais ça ne te donne pas la progression

- utiliser cette API MoveFileWithProgress : c'est plus complet, mais nettement plus difficile à utiliser...

C'est une fonction native de Windows, donc pour l'utiliser en VB.NET il faut la déclarer dans ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
<DllImport("kernel32.dll", SetLastError:=True, EntryPoint:="MoveFileWithProgressW", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)>
Private Shared Function MoveFileWithProgress  ( _
    ByVal lpExistingFileName As String, _
    ByVal lpNewFileName As String, _
    ByVal lpProgressRoutine As CopyProgressRoutine, _
    ByVal lpData As IntPtr, _
    ByVal dwFlags As MoveFileFlags) As Boolean
End Function

Il faut aussi déclarer le delegate CopyProgressRoutine et les enums utilisés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Delegate Function CopyProgressRoutine( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
Private Enum CopyProgressResult As UInt32
    PROGRESS_CONTINUE = 0
    PROGRESS_CANCEL = 1
    PROGRESS_STOP = 2
    PROGRESS_QUIET = 3
End Enum
 
Private Enum CopyProgressCallbackReason As UInt32
    CALLBACK_CHUNK_FINISHED = 0
    CALLBACK_STREAM_SWITCH = 1
End Enum
 
<Flags>
Private Enum MoveFileFlags As UInt32
    MOVE_FILE_REPLACE_EXISTSING = &H00000001
    MOVE_FILE_COPY_ALLOWED = &H00000002
    MOVE_FILE_DELAY_UNTIL_REBOOT = &H00000004
    MOVE_FILE_WRITE_THROUGH = &H00000008
    MOVE_FILE_CREATE_HARDLINK = &H00000010
    MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H00000020
End Enum

Ensuite, tu déclares une fonction de callback qui sera appelée à chaque fois que la copie progresse, avec la même signature que le delegate CopyProgressRoutine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
    Dim percent As Double = TotalBytesTransferred / TotalFileSize
    Console.WriteLine("{0:P}", percent)
 
    Return CopyProgressResult.PROGRESS_CONTINUE
 
End Function

Et enfin tu peux appeler MoveFileWithProgress :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim result As Boolean = MoveFileWithProgress(source, destination, AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)

Après il faut jouer sur les paramètres si tu veux modifier le comportement... Je te laisse regarder la doc pour voir ce dont tu as besoin exactement

**bansan** · 18/10/2010, 12h19

Bonjour,

j'ai trouvé un code sur internet censé pouvoir copier un fichier tout en faisant evoluer le progressbar
or une fois que je met ce code sous micorsoft visual basic 2010
il me signale une erreur au niveau de la fonction et me dit que

La fonction copyprogress ne retourne pas une valeur pour tous les chemins du code. Une instruction 'Return' est t'elle manquante?

Si quelqu'un pouvait m'aider

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Delegate Function CopyProgressRoutine(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
 
Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, ByVal lpData As Int32, ByVal lpBool As Int32, ByVal dwCopyFlags As Int32) As Int32
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim copyError As Exception = New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error)
Dim cpr As New CopyProgressRoutine(AddressOf CopyProgress)
CopyFileEx("C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll", "C:\dao360_delete.dll", cpr, 0, 0, 0)
 
End Sub
 
Private Function CopyProgress(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
ProgressBar1.Value = Convert.ToInt32(totalBytesTransferred / totalFileSize * 100)
 
End Function

**Jerede** · 18/10/2010, 22h15

Bonsoir,

Tu déclare une fonction qui est censé retourné un Int32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Delegate Function CopyProgressRoutine(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32

Hors dans ton code, ta fonction ne retourne rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Function CopyProgress(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
ProgressBar1.Value = Convert.ToInt32(totalBytesTransferred / totalFileSize * 100)
End Function

Tu peut voir sur msdn les différentes valeurs à renvoyer : http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

PROGRESS_CANCEL 1 Cancel the copy operation and delete the destination file.

PROGRESS_CONTINUE 0 Continue the copy operation.

PROGRESS_QUIET 3 Continue the copy operation, but stop invoking CopyProgressRoutine to report progress.

PROGRESS_STOP 2 Stop the copy operation. It can be restarted at a later time.

J'aurais préféré utiliser du code managé pour copié les fichiers et mettre ca dans un Thread pour ne pas bloquer l'interface

**tomlev** · 18/10/2010, 23h31

Envoyé par bansan

j'ai trouvé un code sur internet censé pouvoir copier un fichier tout en faisant evoluer le progressbar
or une fois que je met ce code sous micorsoft visual basic 2010
il me signale une erreur au niveau de la fonction et me dit que

C'est à peu près la même chose que ta question de l'autre jour, où je t'ai donné une réponse longue et détaillée pour laquelle tu ne t'es même pas donné la peine de remercier... Franchement, ça donne pas trop envie de t'aider

A part ça, la réponse de Jerede semble correcte.

**bansan** · 18/10/2010, 23h53

Désolé si je ne t'ai pas remercier

Merci

**bansan** · 19/10/2010, 00h27

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Public Class Form1
 
    Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
 
    End Function
 
 
    Private Delegate Function CopyProgressRoutine( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
    Private Enum CopyProgressResult As UInt32
        PROGRESS_CONTINUE = 0
        PROGRESS_CANCEL = 1
        PROGRESS_STOP = 2
        PROGRESS_QUIET = 3
    End Enum
 
    Private Enum CopyProgressCallbackReason As UInt32
        CALLBACK_CHUNK_FINISHED = 0
        CALLBACK_STREAM_SWITCH = 1
    End Enum
 
    <Flags()>
    Private Enum MoveFileFlags As UInt32
        MOVE_FILE_REPLACE_EXISTSING = &H1
        MOVE_FILE_COPY_ALLOWED = &H2
        MOVE_FILE_DELAY_UNTIL_REBOOT = &H4
        MOVE_FILE_WRITE_THROUGH = &H8
        MOVE_FILE_CREATE_HARDLINK = &H10
        MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H20
    End Enum
 
 
    Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
        Dim percent As Double = TotalBytesTransferred / TotalFileSize
 
 
        Return CopyProgressResult.PROGRESS_CONTINUE
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = MoveFileWithProgress("D:\VIDEOS\je.v", "D:\Jeu.v", AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)
        MsgBox(CopyProgressResult.PROGRESS_CONTINUE)
    End Sub
End Class

j'ai tut essayé mais a priori ca ne marche pas

**Jerede** · 19/10/2010, 00h33

Qu'est ce qui ne marche pas ?

Tu m'embrouille avec tes deux sujets, faudrai en supprimer un

**tomlev** · 19/10/2010, 00h34

Envoyé par bansan

j'ai tut essayé mais a priori ca ne marche pas

C'est parce que tu as supprimé les attributs <DllImport> du code que j'avais posté... ils n'étaient pas là pour faire joli

(suite de la discussion sur le sujet d'origine, sinon on va plus s'y retrouver...)

**bansan** · 19/10/2010, 00h37

si qqun pouvait juste me donner le bon code et ensuite une fois que cela marche, m'expliquer
ca serait genial...
ca fait une semaine que je cherche et tourne et retourne les forums ...

http://khsw.blogspot.com/2005/08/cop...-in-vbnet.html

Sur ce lien , il donne toutes les etapes, cependant...cela ne fonctionne pas chez moi en tout cas..

je suis sous vb 2010 express...

quand j'essaie la solution de tomlev....pareil...je ne sais pas ou cela bug...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
 
    End Function
 
 
    Private Delegate Function CopyProgressRoutine( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
    Private Enum CopyProgressResult As UInt32
        PROGRESS_CONTINUE = 0
        PROGRESS_CANCEL = 1
        PROGRESS_STOP = 2
        PROGRESS_QUIET = 3
    End Enum
 
    Private Enum CopyProgressCallbackReason As UInt32
        CALLBACK_CHUNK_FINISHED = 0
        CALLBACK_STREAM_SWITCH = 1
    End Enum
 
    <Flags()>
    Private Enum MoveFileFlags As UInt32
        MOVE_FILE_REPLACE_EXISTSING = &H1
        MOVE_FILE_COPY_ALLOWED = &H2
        MOVE_FILE_DELAY_UNTIL_REBOOT = &H4
        MOVE_FILE_WRITE_THROUGH = &H8
        MOVE_FILE_CREATE_HARDLINK = &H10
        MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H20
    End Enum
 
 
    Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
        Dim percent As Double = TotalBytesTransferred / TotalFileSize
 
 
        Return CopyProgressResult.PROGRESS_CONTINUE
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = MoveFileWithProgress("D:\VIDEOS\MEGAVIDEO - Je le regarde.flv", "D:\MEGAVIDEO - Je le regarde.flv", AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)
        MsgBox(CopyProgressResult.PROGRESS_CONTINUE)
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
        ProgressBar1.Value = CopyProgressResult.PROGRESS_CONTINUE
    End Sub

faire evoluer progressbar pendant transfert fichier

VB.NET

Vue hybride

Discussions similaires

Partager

Partager