基于事件通知的线程等待(vb.net)

在这个帖子中提及了线程等待的问题，原方法是用循环判断线程状态来决定是否继续执行的思路。这种方法的主要问题是浪费资源，虽然用Sleep可以减少cpu的占用量，但远不如用事件通知的方法来的优雅。

下面贴出基于事件通知的线程等待的代码，完全可以举一反三。

(魏滔序原创，转帖请注明出处。)

Imports System Imports System.Threading Public Class ThreadClass Private Shared Event Completed As EventHandler Private Shared ThreadCount1 As Integer = 11 '创建11个线程 Private Shared ThreadCount2 As Integer = 0 Public Shared Sub Main() Dim Thread As Thread ThreadCount2 = 0 '事件与过程绑定 AddHandler Completed, AddressOf ThreadCompleted '创建并执行线程 For i As Integer = 1 To ThreadCount1 Thread = New Thread(New ParameterizedThreadStart(AddressOf ThreadProcess)) Thread.Start(i) Next Console.ReadKey() End Sub '每个线程结束的时候都要调用的事件 Private Shared Sub ThreadCompleted(ByVal sender As Object, ByVal e As EventArgs) ThreadCount2 += 1 If ThreadCount1 = ThreadCount2 Then Console.WriteLine("这是所有线程执行完才执行的内容") End If End Sub '线程处理过程 Private Shared Sub ThreadProcess(ByVal parameter As Object) For i As Integer = 0 To 100 Console.WriteLine("这是线程{0}中执行的内容", parameter.ToString) Next '触发事件 RaiseEvent Completed(Nothing, Nothing) End Sub End Class

最后

以上就是无私煎饼为你收集整理的基于事件通知的线程等待(vb.net)的全部内容，希望文章能够帮你解决基于事件通知的线程等待(vb.net)所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。