Собственный поток для каждого Listbox.Items

@Sega71 · Регистрация: 10.08.2011

Author24 — интернет-сервис помощи студентам

В моём примере каждый поток обрабатывает каждое значение из ListBox1:

VB.NET

Imports System.Threading
Public Class Form1
    Public Delegate Sub delegate_fill_list(list_line As String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 1 To 5
            ListBox1.Items.Add(i)
        Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim threads As New List(Of Thread)()
        For i As Integer = 0 To ListBox1.Items.Count
            threads.Add(New Thread(AddressOf fill_list))
            threads(i).IsBackground = True
            threads(i).Start()
        Next
    End Sub
 
    Public Sub fill_list()
        For i = 0 To ListBox1.Items.Count - 1
            Dim list1_line As String = ListBox1.Items(i).ToString
            add_line(list1_line * 5)
            Thread.Sleep(1000)
        Next
    End Sub
 
    Public Sub add_line(line As String)
        If ListBox2.InvokeRequired Then
            Invoke(New delegate_fill_list(AddressOf add_line), line)
        Else
            ListBox2.Items.Add(line)
        End If
    End Sub
End Class

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

ВАЖНО!!! Ithem-ов в ListBox1 может быть намного больше, поэтому писать для каждого свой Sub() не вариант!!!
Подскажите, как быть?

@OwenGlendower · 01.11.2016, 02:07

Sega71, вот так, но толку от такой многопоточности очень мало т.к. у всех потоков будет одно узкое место - вызов Invoke. При большом кол-ве элементов это решение скорее всего будет работать медленнее чем один поток.

VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim threads As New List(Of Thread)()
    For i As Integer = 0 To ListBox1.Items.Count-1
        threads.Add(New Thread(AddressOf fill_list))
        threads(i).IsBackground = True
        threads(i).Start(ListBox1.Items(i))
    Next
End Sub
 
Public Sub fill_list(item As Object)
    Dim list1_line As String = item.ToString
    add_line(list1_line * 5)
End Sub
 
Public Sub add_line(line As String)
    If ListBox2.InvokeRequired Then
        Invoke(New delegate_fill_list(AddressOf add_line), line)
    Else
        ListBox2.Items.Add(line)
    End If
End Sub

@Sega71 · 01.11.2016, 16:28 **[ТС]**

OwenGlendower, Спасибо, код работает, но есть одно "НО": на время выполнения форма зависает, как от этого избавиться?
Пришла в голову такая мысль: отследить, если предыдущий поток завершен, то запустить следующий, но не знаю как работать с номерами потоков:

VB.NET

1
2
3

            If threads(i).IsAlive = False Then
                threads(i).Start(ListBox1.Items(i))
            End If

так мы отслеживаем существует ли создаваемый поток, а нужно предыдущий, что то типа этого:

VB.NET

1
2
3

            If threads(i - 1).IsAlive = False Then
                threads(i).Start(ListBox1.Items(i))
            End If

Добавлено через 2 часа 45 минут
C одним потоком тоже самое - форма висит до завершения работы со всеми ListBox.Items даже при проверке "жив" ли поток:

VB.NET

        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim wrk_thread As New Thread(AddressOf fill_list)
            wrk_thread.IsBackground = True
            If wrk_thread.IsAlive = False Then
                wrk_thread.Start(ListBox1.Items(i))
            End If
        Next

в функцию добавил Thread.Sleep не помогло:

VB.NET

    Public Sub fill_list(item As Object)
        Dim list1_line As String = item.ToString
        Thread.Sleep(1000)
        add_line(list1_line * 5)
        ' Thread.Sleep(1000)
    End Sub

@OwenGlendower · 01.11.2016, 19:01

Sega71, раз единственное что делает твой код это обновление UI то никакой пользы от потоков здесь нет. Почему ты решил их применять?

Сообщение от Sega71

на время выполнения форма зависает, как от этого избавиться?

Invoke делает свою работу в контексте UI потока. Пока он работает UI не может ообновляться. Если делать вызовы очень часто как в моем примере, то приложение неизбежно подвиснет. При большом количестве элементов имеет смысл переключиться в виртуальный режим.

Сообщение от Sega71

форма висит до завершения работы со всеми ListBox.Items даже при проверке "жив" ли поток:

VB.NET

1
2
3

Dim wrk_thread As New Thread(AddressOf fill_list)
wrk_thread.IsBackground = True
If wrk_thread.IsAlive = False Then

Это проверка всегда вернет True т.к. новый поток по определению "не живой".

	01.11.2016, 19:01