Birden Fazla İş Parçacığı Bir işlev çalıştıran VB.net

Question

Tuhaf bir sorun yaşıyorum.

Kontrol Listemde 3 tane ürün var. Tüm eşyaları kontrol edip düğmem üzerine tıklıyorum. Düğme eşit sayıda iş parçacığı oluşturmalı (işaretli öğe sayısı kadar) ve işaretli öğelerin dizinini bir işleve vermelidir. İşlev kontrol edilenleri konsolda verir.

Public Class Form1 
    Private ThreadList As New List(Of Threading.Thread) 

    Private Sub MeineFunktion(ByVal username As String) 
     Threading.Thread.Sleep(2000) 
     Console.WriteLine(username) 
     'Debug.Print(username) 
    End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim indexChecked As Integer 


     For Each indexChecked In CheckedListBox1.CheckedIndices 



      Dim t As Threading.Thread = New Threading.Thread(Sub() MeineFunktion(indexChecked.ToString)) 
      ThreadList.Add(t) 
      t.Start() 


     Next 

    End Sub 
End Class 

konudur, konsol her zaman 2

yerine

, 1, 2

, 1,

1 verir

İlk öğe neden sürekli göz ardı ediliyor? Ben INTEGER olarak byval kullanıcı adının değiştirilmesi ve bu

Dim t As Threading.Thread = New Threading.Thread(Sub() MeineFunktion(indexChecked)) 

gibi değerini sneding yapıyor şimdiye kadar

çalıştı Ve yine aynı sorunu yaşamıştır Ne

. Ya iş parçacığımla veya konsol yazıcısını yapan işlevle (hata ayıklama yazdırmayı da denedim) ilgili bir şey var.

Ben Her iş parçacığı oluşturulur ve yayınlanmaya başlaması gereken biraz zamana ihtiyacı konuyu

Answer 1

neyin neden olduğunu tam olarak belirlemek mümkün değil. Bu iş parçacığı kullanmadan önce kullanıcı adı değiştiriyor gibi görünüyor. Her iş parçacığı başlatıldıktan hemen sonra küçük bir gecikme eklemeye çalışın:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim indexChecked As Integer 
    For Each indexChecked In CheckedListBox1.CheckedIndices 
     Dim t As Threading.Thread = New Threading.Thread(Sub() MeineFunktion(indexChecked.ToString)) 
     ThreadList.Add(t) 
     t.Start() 
     Do 
      Threading.Thread.Sleep(10) 
     Loop Until t.IsAlive 
    Next 
End Sub