module1.vb

适合VB初学者看

Imports System
Imports System.Threading
Module Module1
    Public LockData As Object = New Object()
    Sub Main()
        Dim theClass As class1
        theClass = New class1()
        '构造二个线程
        Dim threadOne As Thread
        Dim threadTwo As Thread
        threadOne = New Thread(AddressOf theClass.MethodOne)
        threadTwo = New Thread(AddressOf theClass.MethodTwo)
        '启动线程
        threadOne.Start()
        threadTwo.Start()
        '主线程无限循环
        While True
            '如果按下q键并回车则结束3个子线程，退出循环
            Dim ch As String = Console.ReadLine()
            If ch = "q" Then
                threadOne.Abort()
                threadOne.Join()
                threadTwo.Abort()
                threadTwo.Join()
                Exit While
            End If
        End While
    End Sub
    Public Class class1
        Public Sub MethodOne()
            '无限循环
            While True
                '锁定共享数据类
                SyncLock (LockData)
                    Console.WriteLine("线程1进入临界区域！")
                    Thread.Sleep(2000)
                    Console.WriteLine("线程1退出临界区域！")
                End SyncLock
            End While
        End Sub
        Public Sub MethodTwo()
            '无限循环
            While True
                '锁定共享数据类
                SyncLock (LockData)
                    Console.WriteLine("线程2进入临界区域！")
                    Thread.Sleep(2000)
                    Console.WriteLine("线程2退出临界区域！")
                End SyncLock
            End While
        End Sub
    End Class
End Module