VszLib et lecture d'event

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:

---

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:

---

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

D'abord dans déclarations (General):

Code:

---

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:

Pièce jointe 513569

...avec ses events:

Pièce jointe 513571

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

Code:

---

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 ;)