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- 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 SubEnd ClassPublic 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 PropertyEnd Class

总结

以上是内存溢出为你收集整理的VB.Net程序设计：用队列控制多线程。全部内容，希望文章能够帮你解决VB.Net程序设计：用队列控制多线程。所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。