In Forum: Web Design/Programming Support and Discussion
By User: AlphaBeta
Maybe because you didn't add the Handles suffix to the "Private Sub ext_Extracting..." line?
EDIT: I edited your code, so it should work:
Public Class Form1
Private listItemIndex As Integer = 0
Friend WithEvents ext As SevenZipExtractor = New SevenZipExtractor("C:\Test.7z")
Public Sub ext_Extracting(ByVal sender As Object, ByVal e As SevenZip.ProgressEventArgs) Handles ext.Extracting
If listItemIndex < ext.ArchiveFileNames.Count Then
Label1.Text = ext.ArchiveFileNames.Item(listItemIndex).ToString()
listItemIndex += 1
End If
End Sub
End Class
By User: AlphaBeta
Maybe because you didn't add the Handles suffix to the "Private Sub ext_Extracting..." line?
EDIT: I edited your code, so it should work:
Public Class Form1
Private listItemIndex As Integer = 0
Friend WithEvents ext As SevenZipExtractor = New SevenZipExtractor("C:\Test.7z")
Public Sub ext_Extracting(ByVal sender As Object, ByVal e As SevenZip.ProgressEventArgs) Handles ext.Extracting
If listItemIndex < ext.ArchiveFileNames.Count Then
Label1.Text = ext.ArchiveFileNames.Item(listItemIndex).ToString()
listItemIndex += 1
End If
End Sub
End Class