gpt4 book ai didi

vb.net - 如何让一个线程等到另一个线程完成?

转载 作者:行者123 更新时间:2023-12-03 13:15:06 24 4
gpt4 key购买 nike

Static lock As Object

SyncLock lock
TraverSingweb.TraverSingWeb.WebInvoke(Sub() TraverSingweb.TraverSingWeb.putHtmlIntoWebBrowser(theenchancedwinclient)) 'This quick function need to finish before we continue
End SyncLock

SyncLock lock
'SuperGlobal.lockMeFirst(AddressOf SuperGlobal.doNothing) ' donothing
End SyncLock

这就是我目前在vb.net中所做的事情。这是一种模式吗?

最佳答案

这是一个非常基本的例子; main方法只是创建两个线程并启动它们。第一个线程等待10秒,然后设置 _WaitHandle_FirstThreadDone 。第二个线程只是在继续之前等待 _WaitHandle_FirstThreadDone 的设置。这两个线程是同时启动的,但是第二个线程将等待第一个线程设置 _WaitHandle_FirstThreadDone ,然后再继续。

有关更多详细信息,请参见:System.Threading.AutoResetEvent

Module Module1

Private _WaitHandle_FirstThreadDone As New System.Threading.AutoResetEvent(False)

Sub Main()
Console.WriteLine("Main Started")
Dim t1 As New Threading.Thread(AddressOf Thread1)
Dim t2 As New Threading.Thread(AddressOf thread2)
t1.Start()
t2.Start()
Console.WriteLine("Main Stopped")
Console.ReadKey()
End Sub

Private Sub Thread1()
Console.WriteLine("Thread1 Started")
Threading.Thread.Sleep(10000)
_WaitHandle_FirstThreadDone.Set()
Console.WriteLine("Thread1 Stopped")
End Sub

Private Sub thread2()
Console.WriteLine("Thread2 Started")
_WaitHandle_FirstThreadDone.WaitOne()
Console.WriteLine("Thread2 Stopped")
End Sub
End Module

关于vb.net - 如何让一个线程等到另一个线程完成?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10394315/

24 4 0
文章推荐: multithreading - Guava ListenableFuture 如何等待来自堆栈的信息?