Как запустить распаковку архива параллельно с работай программы?

@Edgar4 · Регистрация: 11.11.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Помогите в решении!
При старте программы параллельно с выполнением основного кода должен распаковаться архив.

VB.NET

Dim sh As New Shell32.Shell()
Dim output As Shell32.Folder = sh.NameSpace(Application.StartupPath + "\S")
Dim input As Shell32.Folder = sh.NameSpace(Application.StartupPath + "\S\File.zip")
output.CopyHere(input.Items, 4)

Чтобы они друг другу не мешали, как мне кажется, необходимо запустить распаковку в отдельно потоке.
Как это можно реализовать?

@Nachrichter · 28.01.2015, 13:42

Edgar4, попробуйте использовать BackgroundWorker, как вариант.

@Edgar4 · 28.01.2015, 15:02 **[ТС]**

Сообщение от Nachrichter

попробуйте использовать BackgroundWorker, как вариант.

А можно какой-нибудь промер для моего кода, чтобы разобраться с многопоточностью?

@Nachrichter · 28.01.2015, 15:34

Edgar4, кидаете на форму BackgroundWorker и в процедуру пишете Ваш код:

VB.NET

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
  Dim sh As New Shell32.Shell()
  Dim output As Shell32.Folder = sh.NameSpace(Application.StartupPath + "\S")
  Dim input As Shell32.Folder = sh.NameSpace(Application.StartupPath + "\S\File.zip")
  output.CopyHere(input.Items, 4)
End Sub

В нужный момент, например в загрузке формы, запускаете BackgroundWorker:

VB.NET

1	BackgroundWorker1.RunWorkerAsync()

Должно работать...

@Edgar4 · 29.01.2015, 04:25 **[ТС]**

Сообщение от Nachrichter

Должно работать...

Спасибо! Все отлично работает.
Но вот, если к этому коду прикрутить процесс бар, то почему-то он не идет.
Подскажите, где моя ошибка!

VB.NET

Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' инициализация pb
        ProgressBar1.Minimum = 0 ' начальное значние
        ProgressBar1.Maximum = 100 ' максимальное значение
        ProgressBar1.Step = 1 ' шаг
        ProgressBar1.Value = 0
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
        If BackgroundWorker1.IsBusy <> True Then
            'Запускаем асинхронную операцию
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        Dim sh As New Shell32.Shell()
        Dim output As Shell32.Folder = sh.NameSpace(Application.StartupPath + "\S")
        Dim input As Shell32.Folder = sh.NameSpace(Application.StartupPath + "\S\File.zip")
        output.CopyHere(input.Items, 4)
 
    End Sub
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        BackgroundWorker1.CancelAsync()
        MsgBox("Всe ок")
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = (e.ProgressPercentage) ' изменяем значение pb
    End Sub
 
End Class

@Nachrichter 649 / 601 / 92 Регистрация: 19.03.2012 Сообщений: 1,128
	28.01.2015, 13:42	2
	Edgar4, попробуйте использовать BackgroundWorker, как вариант. 0

@Edgar4 4 / 4 / 8 Регистрация: 11.11.2014 Сообщений: 256
	28.01.2015, 15:02 [ТС]	3
	Сообщение от Nachrichter попробуйте использовать BackgroundWorker, как вариант. А можно какой-нибудь промер для моего кода, чтобы разобраться с многопоточностью? 0

	29.01.2015, 04:25