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

如上一节《vb.net 教程 6-16 使用SyncLock语句实现线程的同步》介绍的SyncLock语句，是一种简单处理同步的方法。

.net还提供了Monitor类处理线程同步。Monitor类比较重要的几个静态方法：

Enter 在指定对象上获取排他锁。
Exit 释放指定对象上的排他锁。
TryEnter 尝试获取指定对象上的排他锁，并自动设置一个值，指示是否获取了该锁。

Monitor的Enter和Exit方法有点类似于SyncLock和End SyncLock。这里重点介绍TryEnter方法。

TryEnter方法的一个重载：

Public Shared Function TryEnter ( _
obj As Object, _
millisecondsTimeout As Integer _
) As Boolean
参数：
obj 在其上获取锁的对象。
millisecondsTimeout 等待锁所需的毫秒数，即在 millisecondsTimeout 毫秒后释放这个锁，不会一直占有，这样其他线程也可以继续下去。
使用Enter或者TryEnter方法时候，锁定的对象所需要满足的条件和SyncLock 的lockobject一样，具体请参看《vb.net 教程 6-16 使用SyncLock语句实现线程的同步》

下面将用一个例子说明Monitor类的使用：
使用Monitor类也需要先定义一个模块级变量（只针对本代码）：

Private MonitorObj As Object
主代码：

Sub sample13()
MonitorObj = New Object
For i As Integer = 0 To 5
Dim sample13_Thread As New Thread(AddressOf sample13_doALoop1)
sample13_Thread.Start(i)
Next

Thread.Sleep(100)
Console.ReadKey()
End Sub

Sub sample13_doALoop1(ByVal number As Integer)
Dim counter As Integer = CType(number, Integer)
Monitor.TryEnter(MonitorObj, 100)
For i As Integer = 1 To 100
Console.Write(" " & counter)
Next
Monitor.Exit(MonitorObj)
End Sub
OK，运行，开始输出。

然后，大概率会出错：

Monitor 引发了SynchronizationLockException错误，并显示消息“从不同步的代码块中调用了对象同步方法”。
msdn给出的说明是：当要求调用方拥有给定 Monitor 的锁的方法被没有该锁的调用方调用时引发的异常。
推测是因为主线程休息的时间太短，抢用Console资源，和Monitor锁定内容中的资源冲突。
可以通过将Thread.Sleep(100)修改为更多毫秒数来避免出错，或者使用以下改进的代码：

Sub sample13()
MonitorObj = New Object
For i As Integer = 0 To 5
Dim sample13_Thread As New Thread(AddressOf sample13_doALoop2)
sample13_Thread.Start(i)
Next

Thread.Sleep(100)
Console.ReadKey()
End Sub

'修改后的例子
Sub sample13_doALoop2(ByVal number As Integer)
Dim counter As Integer = CType(number, Integer)
Try
Monitor.TryEnter(MonitorObj, 1000) '这里的时间不能设置太短，否则会在Exit处发生错误。
For i As Integer = 1 To 100
Console.Write(" " & counter)
Next
Catch ex As Exception

Finally
Monitor.Exit(MonitorObj)
End Try
End Sub