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

最新推荐文章于 2022-09-23 10:50:02 发布

原创最新推荐文章于 2022-09-23 10:50:02 发布 · 8.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #integer #thread #object #class

.net 专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一种改进的线程等待方法，通过事件通知机制替代传统的循环判断方式，实现更优雅的线程同步。文章提供了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