(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Shows multiple threads that print message
Imports System.Threading
Module Tester
Sub Main()
Dim thread1 As New Thread(AddressOf Print)
Dim thread2 As New Thread(AddressOf Print)
Dim thread3 As New Thread(AddressOf Print)
thread1.Name = "thread1"
thread2.Name = "thread2"
thread3.Name = "thread3"
Console.WriteLine("Starting threads")
thread1.Start()
thread2.Start()
thread3.Start()
End Sub
Public Sub Print()
Dim current As Thread = Thread.CurrentThread
Console.WriteLine(current.Name & " done sleeping")
End Sub
End Module
Starting threads
thread1 done sleeping
thread3 done sleeping
thread2 done sleeping