vb.net如何在每個循環中顯示什麼線程正在計算並繼續在窗體中工作？

Question

我試圖在一個線程內創建一個循環，當它向我顯示文本框中的值時，繼續在我的表單中工作。 問題是，當它啓動時，我不能在窗體中做任何事情，例如按下按鈕或設置命令。

這裏是代碼的理念：

Imports System.Threading 

Public Class Form1 

    Dim trd As System.Threading.Thread 
    Dim cont As Integer 

    Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click 
      cont = 0 
      trd = New Thread(AddressOf trdReadAxis) 
      trd.Start() 
    End Sub 

    Private Delegate Sub CloseFormCallback() 
    Private Sub trdReadAxis() 
     While cont < 10 
      If InvokeRequired Then 
       Dim d As New CloseFormCallback(AddressOf trdReadAxis) 
       Invoke(d, Nothing) 
      Else 
       txtXPosition.Text = cont 
       cont += 1 
       Thread.Sleep(1000) 
      End If 
     end while 
    end class 

我能做些什麼，看everi第二的變化在我的文本框「txtXPosition」？

謝謝。

Answer 1

此代碼是一個爛攤子：

Private Sub trdReadAxis() 
    While cont < 10 
     If InvokeRequired Then 
      Dim d As New CloseFormCallback(AddressOf trdReadAxis) 
      Invoke(d, Nothing) 
     Else 
      txtXPosition.Text = cont 
      cont += 1 
      Thread.Sleep(1000) 
      End If 
    End while 
End Sub 

它看起來像你的工作線程通過Invoke，它會在UI線程上執行自我回調。一旦它在那裏，就會遍歷整個循環中的while循環 - 仍然在UI線程上 - 在循環的每次迭代中都會有Sleep(1000)。這將鎖定應該處理您的點擊和擊鍵的消息循環。

我建議你從一個更新的文本框，像這樣的代碼劃分出工作線程：

Delegate SetTextCallBack(ByVal message as string) 

Private Sub SetText(ByVal message as String) 
    if InvokedRequired then 
     Dim d As New SetTextCallback(AddressOf SetText) 
     Invoke(d, message) 
    Else 
     txtXPosition.Text = message 
    End If 
end sub 

Private Sub trdReadAxis() 
    While cont < 10 
     SetText cont 
     cont += 1 
     Thread.Sleep(1000) 
    End while 
End Sub