Discussion :

[satsukiki]

Bonjour a tous

Je rédige en ce moment un petit programme en vb6.
J'utilise la dll VszLib (https://github.com/wqweto/VszLib) pour décompresser un fichier:

Code :

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

1
2
3
4
5
Dim extractorr As New cVszArchive
extractorr.Password = "testpasss"
extractorr.OpenArchive app.path & "test.7z"
extractorr.Extract app.path & "\testex\"
MsgBox ("ok")

Tout ce passe bien mais j'aimerai mettre en place un suivit de la décompression car le fichier est plutot volumineux.
Faire une barre de progression en sois ne me pose de probleme mais je ne comprend pas comment récupérer les informations nécessaires

D'après la doc de VszLib lors de la décompression, il est utilisé l'événement (raise event) suivant :

Code :

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

Event Progress(FileIdx As Long, Current As Double, Total As Double, Cancel As Boolean)

Le probleme est que je ne comprend pas comment lire cet evement.
J'aimerai bien utiliser une fonction de type onchange sur cet event pour y intégrer ma fonction de barre de progression.
C'est probablement pas très compliqué mais les documentation que j'ai trouvé sur la gestion de évènements ne m'ont pas vraiment aidé.

Si l'un de vous peu m'aider avec un petit bout de code je ne dis pas non.
Merci

[jpgzgz]

D'abord dans déclarations (General):

Code :

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

Dim WithEvents extractorr As cVszArchive

Ça crée même une entrée avec le nom de la variable dans la liste des objets utilisés dans le module de classe où on a fait la déclaration:



...avec ses events:



Puis, dans n'importe quelle fonction, l'usage c'est (suivant ton exemple):

Code :

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

1
2
3
4
5
Set extractorr = New cVszArchive
extractorr.Password = "testpasss"
extractorr.OpenArchive app.path & "test.7z"
extractorr.Extract app.path & "\testex\"
MsgBox ("ok")

Et voilà, les events roulent