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第2の変更「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 

あなたのワーカースレッドは、それがUIスレッド上で実行されますInvoke、経由で自身をコールバックするように見えます。ループが終了すると、それはループのすべての反復でSleep(1000)というUIスレッド上のwhileループ全体を通過します。これはあなたのクリックとキーストロークを処理するはずのメッセージループをロックアウトします。

私はそうのように、あなたはテキストボックスを更新するコードからワーカースレッドを分ける提案：

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