Monitor Enter and Exit Lock : Lock « Thread « VB.Net

1. VB.Net
2. Thread
3. Lock

Monitor Enter and Exit Lock

Imports System.Threading

Public Class MainClass
   Shared Dim A As Thread = New Thread(AddressOf Method)
   Shared Dim B As Thread = New Thread(AddressOf Method)
   Shared Dim C As Thread = New Thread(AddressOf Method)


   Shared Public MonitorLock As Object = New Object()

   Public Shared Sub Main()

        A.Name = "A"
        A.Start()

        B.Name = "B"
        B.Start()

        C.Name = "C"
        C.Start()

   End Sub

   Shared Sub Method()

        Thread.CurrentThread.Sleep(Int(1000 * Rnd()))

        Monitor.Enter(MonitorLock)

        Console.WriteLine("Thread: " & Thread.CurrentThread.Name)

        Monitor.Exit(MonitorLock)

    End Sub
End Class 

           
       

Related examples in the same category