线程使我的程序没有响应？

Question

嘿，这是我的剧本：

Private Sub UpdateThread()
        Dim AppDir As String = Application.StartupPath()
        My.Computer.Network.DownloadFile(MyUpdate.UpdateFetchURL, UpdateClass.WebUpdateZIP, True, True)
        MyUpdate.ExtractArchive(UpdateClass.WebUpdateZIP, AppDir)
        File.Delete(UpdateClass.WebUpdateZIP)
    End Sub

我怎么称呼它：

Private Sub FetchUpdateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FetchUpdateButton.Click
        FetchUpdateButton.Enabled = False
        Dim trd As New Thread(AddressOf UpdateThread)
        trd.IsBackground = True
        trd.Start()
        Do
            ProgressBar1.Increment(5)
            ProgressBar1.Increment(2)
        Loop
    End Sub

它完美地完成了UpdateThread任务，但程序只是挂起。就是这样。感谢。

Answer 1

你正在开始一个没有条件退出该循环的循环。