vb.net 教程 6-17 使用Monitor类实现线程的同步

痛定思痛。 2022-09-11 03:27 107阅读 0赞

先看以下代码：

Sub sample12()  
        For i As Integer = 0 To 5  
            Dim sample12\_Thread As New Thread(AddressOf sample12\_doALoop1)  
            sample12\_Thread.Start(i)  
        Next  
   
        Thread.Sleep(1000)  
        Console.ReadKey()  
    End Sub  
   
    Sub sample12\_doALoop1(ByVal number As Integer)  
        Dim counter As Integer = CType(number, Integer)  
        For i As Integer = 1 To 100  
            Console.Write(" " & counter)  
        Next  
    End Sub  
得到的结果可能如下，关键的地方我用红框标记出来了：

可以看到上面的输出比较混乱，这是由于线程是由系统控制，我们也不知道在哪个位置，系统就将线程1停了启动了线程2，接着又将线程2停了，切换运行线程4……。本来想完整地输出100个0、100个1……（什么？你还想按照0至5的顺序输出？我这里只谈如何完整地输出100个0、100个1……不谈顺序），这段代码实现不了的，也许偶尔会正确。

解决上面的问题，就需要使用 SyncLock 语句。  
MSDN：SyncLock 语句可确保多个线程不在同一时间执行语句块。 SyncLock 防止各个线程进入该语句块，直到没有其他线程执行它为止。SyncLock 的最常见作用是保护数据不被多个线程同时更新。 如果操作数据的语句必须在没有中断的情况下完成，请将它们放入 SyncLock 块。使用方法如下：

SyncLock lockobject  
    \[ block \]  ‘独占锁时要执行的语句块  
End SyncLock  
需要注意的是，lockobject应该满足以下条件：  
1、值不能是Nothing  
2、不应使用 Me 关键字为实例数据提供锁定对象  
3、应该是引用类型，不要使用Integer这样的值类型  
4、必须定义为线程间可以共享的变量，下面的例子将定义为模块级变量

根据以上介绍，修改后的代码如下：

定义一个模块级变量：

Private lockObj As Object  
修改后的主程序：

Sub sample12()  
        lockObj = New Object  
        For i As Integer = 0 To 5  
            Dim sample12\_Thread As New Thread(AddressOf sample12\_doALoop2)  
            sample12\_Thread.Start(i)  
        Next  
   
        Thread.Sleep(1000)  
        Console.ReadKey()  
    End Sub  
   
    Sub sample12\_doALoop2(ByVal number As Integer)  
        Dim counter As Integer = CType(number, Integer)  
        SyncLock lockObj  
            For i As Integer = 1 To 100  
                Console.Write(" " & counter)  
            Next  
        End SyncLock  
    End Sub  
我们将子线程的循环块代码锁定，确保它完成。运行结果如下：

还强调的是，虽然看着是按照0-5的顺序调用线程，但是输出顺序确实不能控制。除非是采用别的代码实现，留给各位朋友自己来写。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参[vb.net教程][vb.net]目录  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。  
原文链接：https://blog.csdn.net/UruseiBest/article/details/87898010

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/