Почему эта простая многопоточность не working.UI зависанию

Question

Я новичок в multithreading.I гугле некоторые основные примеры ниже приведен код

Imports System.Threading 
Public Class Form1 
Dim t As New Thread(AddressOf Me.BackgroundProcess) 
Private Sub btnStartThread_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartThread.Click 
    t.Start() 
End Sub 

Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click 
    t.Abort() 
End Sub 

Public Sub BackgroundProcess() 
    Dim i As Integer = 1 

    If Me.InvokeRequired Then 
     Me.Invoke(New MethodInvoker(AddressOf BackgroundProcess)) 
    Else 
     Do While True 
      Me.ListBox1.Items.Add("Iteration:" & i) 
      i += 1 
     Loop 
    End If 
End Sub 
End Class 

Когда я нажимаю на резьб мой интерфейс становится unresponsive.What будет причина this.Below скриншот пользовательского интерфейса

Answer 1

Ваш код в «Фон» нить проверяет, если в потоке пользовательского интерфейса

If Me.InvokeRequired Then 

, а если нет, он сообщает, что он работает в потоке пользовательского интерфейса.

Me.Invoke(New MethodInvoker(AddressOf BackgroundProcess)) 

Если в потоке пользовательского интерфейса, он сидит в петле, блокируя поток пользовательского интерфейса, без прокачки.

Do While True 

Чтобы получить эту работу, один из многих способов сделать это так:

Public Delegate Sub AddItemDelegate(ByVal item As Object) 
Public Sub BackgroundProcess() 
    Dim i As Integer = 1 

    Do While True 
     i += 1 
     If Me.InvokeRequired Then 
      Me.Invoke(New AddItemDelegate(AddressOf AddItem), "Iteration:" & i) 
     Else 
      AddItem("Iteration:" & i) 
     End If 
    Loop 
End Sub 
Private Sub AddItem(ByVal item As Object) 
    Me.ListBox1.Items.Add(item) 
End Sub 

Использование делегата является предпочтительным способом.

Answer 2

В основном вы используете поток пользовательского интерфейса с огромным количеством обновлений, чтобы он никогда не получал возможность ответить на ввод пользователя. Измените петлю на сон в течение небольшого промежутка времени.

Do While True 
     Me.ListBox1.Items.Add("Iteration:" & i) 
     i += 1 
     Thread.Sleep(100) 
    Loop 

Answer 3

При выполнении кода пользовательского интерфейса не отвечает, потому что интерфейс получает огромное количество обновлений в очень короткий промежуток времени, либо остановить цикл из бесконечна:

 Do While True 
      Me.ListBox1.Items.Add("Iteration:" & i) 
      If i > 10 Then 
       Exit Do 
      End If 
      i += 1 
     Loop 

Или добавить таймер ожидания после каждого цикла, чтобы замедлить, как часто пользовательский интерфейс обновляется:

 Do While True 
      Me.ListBox1.Items.Add("Iteration:" & i) 
      i += 1 
      'Sleep for 1 second 
      Thread.CurrentThread.Sleep(1000) 
     Loop 

также вы должны остановить код работает в потоке пользовательского интерфейса, как вы в настоящее время создания потока к n запускать что-то в потоке пользовательского интерфейса, что кажется мне не нужным.

т.е. изменить

Me.InvokeRequired 

Чтобы быть

ListBox1.InvokeRequired 

И

Me.Invoke(New MethodInvoker(AddressOf BackgroundProcess)) 

Чтобы быть

ListBox1.Invoke(New MethodInvoker(AddressOf BackgroundProcess))