mcs/mbas/Test/errors/SyncLockA.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30752\r
   3 REM ErrorMessage: 'On Error' statements are not valid within 'SyncLock' statements.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module SyncLockA\r
   8 \r
   9     Class C\r
  10 \r
  11         Private Shared count = 0\r
  12 \r
  13         Sub IncrementCount()\r
  14             Console.WriteLine("Before acquiring lock, Count is {0}", count)\r
  15             SyncLock GetType(C)\r
  16                 System.Threading.Thread.Sleep(1000)\r
  17                 count += 1\r
  18                 Console.WriteLine(count)\r
  19             End SyncLock\r
  20             Console.WriteLine("After releasing lock, Count is {0}", count)\r
  21         End Sub\r
  22 \r
  23     End Class\r
  24 \r
  25     Sub Main()\r
  26         Dim c As New C()\r
  27 \r
  28         Dim td1 As New System.Threading.Thread( _\r
  29                     AddressOf c.IncrementCount)\r
  30         td1.Start()\r
  31 \r
  32         c.IncrementCount()\r
  33     End Sub\r
  34 \r
  35 End Module