VB.Net程序设计：用队列控制多线程

Queuing Threads from the Generic Queue Class [VB.NET/C# Examples by AceInfinity]

From： http://www.sysnative.com/forums/programming/1117-queuing-threads-generic-queue-class-%5Bvbulletin-net-c-examples-aceinfinity%5D.html

Here's an example I put together for someone on MSDN who wanted to be able to easily create a queue of methods to start new threads,and be able to start them one after another in order. Thought i'd share it here as well,as this can be very useful for managing a Thread Queue. Thread syncrhonization in an application is valuable,and can get somewhat complex as well...

用队列控制多线程。也有一定的用途。

Public Class Form1

    Private Sub Form1_Load(sender As System.Object,e As System.EventArgs) Handles MyBase.Load
        
    End Sub

    Private qt As Queue(Of Thread)
    Private Sub Button1_Click(sender As System.Object,e As System.EventArgs) Handles Button1.Click
        qt = New Queue(Of Thread)
        qt.Enqueue(New Thread(AddressOf method1))
        qt.Enqueue(New Thread(AddressOf method2))
        qt.Enqueue(New Thread(AddressOf method3))
        qt(0).Start()
    End Sub

    Private Sub UpdateQueue()
        qt.Dequeue()
        Sync.Variable = qt.Count
    End Sub

    Private Sub method1()
        Console.WriteLine("method1")
        Thread.Sleep(3000)
        UpdateQueue()
    End Sub

    Private Sub method2()
        Console.WriteLine("method2")
        Thread.Sleep(3000)
        UpdateQueue()
    End Sub

    Private Sub method3()
        Console.WriteLine("method3")
        Thread.Sleep(3000)
        UpdateQueue()
    End Sub

    Private WithEvents Sync As New SyncQueueCount
    Private Sub VariableChanged(ByVal QCount As Integer) Handles Sync.VariableChanged
        If QCount > 0 Then
            qt(0).Start()
        Else
            MessageBox.Show("Queue Finished")
        End If
    End Sub

End Class

Public Class SyncQueueCount
    Private S_Int As Integer
    Public Event VariableChanged(ByVal value As Integer)

    Public Property Variable() As Integer
        Get
            Variable = S_Int
        End Get
        Set(ByVal value As Integer)
            S_Int = value
            RaiseEvent VariableChanged(S_Int)
        End Set
    End Property
End Class