Question

所以我试图创建一个启动第三方exe的应用程序来执行一些文件操作，基于文件名列表。因此，如果列表有13个项目，我将循环13次，每次启动外部进程，通知用户现在正在处理哪个文件，启动进程并等待它退出。要通知用户，另一个列表框用作shoutbox。问题是，.waitforexit（）以某种方式以一种奇怪的方式冻结整个线程，因此外部程序被称为nmormaly，tyhe文件被正常处理，但主窗口被冻结，直到所有项目都完成。因此，基本上Shoutbox被冻结并且只有在整个循环结束后才会收到所有信息的垃圾邮件。我已经尝试了很多方法来实现它，例如启动新线程，使用线程池，定时器等等。任何帮助表示赞赏。代码：

Imports System.Windows.Threading
Imports System.Windows.Forms
Imports System.IO
Imports System.Threading        

If Listbox2.Items.Count > 0 Then
            tabctrl.SelectedIndex = 2
            Listbox3.Items.Add(DateTime.Now.ToString & ": Process initiated.")
            For i = 0 To Listbox2.Items.Count - 1
                Listbox3.Items.Add(DateTime.Now.ToString & ": Processing :" & Listbox1.Items.Item(i))
                If System.IO.File.Exists(Listbox2.Items.Item(i)) = False Then
                    Dim pInfo As New ProcessStartInfo()
                    With pInfo
                        .WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
                        .FileName = System.IO.Directory.GetCurrentDirectory & "\" & "myapp.exe"
                        .argouments = "w/e"
                    End With
                    Dim p As Process = Process.Start(pInfo)
                    p.WaitForExit()
                    p.Dispose()
                Else
                    Listbox3.Items.Add(DateTime.Now.ToString & ":! " & Listbox2.Items.Item(i) & " already exists. Moving to next file..")
                End If
            Next
            Listbox3.Items.Add("*-*")
            Listbox3.Items.Add(DateTime.Now.ToString & ": Done.")
        End If

Answer 1

问题是你（至少在你发布的代码中）在UI线程上调用WaitForExit()。 UI线程负责重新绘制窗口，因此如果您阻止它，例如调用WaitForExit()，它不会重绘ui，应用程序似乎被冻结。

您需要做的是在另一个线程或线程池上调用它，我建议使用Tasks：

Task.Run( Sub()
  Dim p As Process = Process.Start(pInfo)
  p.WaitForExit()
End Sub)

但是，由于您没有对Process.Start()电话的结果做任何事情，您也可以考虑暂不打电话给WaitForExit()。

由于您使用的是VS2013，您还可以使用await operator等待该过程完成：

await Task.Run( Sub()
  Dim p As Process = Process.Start(pInfo)
  p.WaitForExit()
End Sub)

请注意，您还必须将async关键字添加到周围的方法

process.start冻结我的应用程序（VS 2013）

1 个答案: