mcs/btests/WithStatementC.vb

   1 Imports System\r
   2 \r
   3 Module WithStatementC\r
   4     Class C1\r
   5         Public a1 As Integer = 10\r
   6         Public a2 As String = "Hello"\r
   7         Sub f1()\r
   8             Console.WriteLine("Class C1: {0} {1}", a1, a2)\r
   9         End Sub\r
  10     End Class\r
  11 \r
  12     Sub Main()\r
  13         Dim a As New C1()\r
  14         With a\r
  15             .a2 = "Hello World"\r
  16             GoTo labelA\r
  17             ' Exit before all statements in With have been executed  \r
  18             .a1 = 20\r
  19             Dim x As New C1()\r
  20             a = x\r
  21             If .a1 = a.a1 Or .a2 = a.a2 Then\r
  22                 Throw New Exception("#WS1 - With Statement failed")\r
  23             End If\r
  24             a.f1()\r
  25             .f1()\r
  26 labelA:\r
  27         End With\r
  28         If a.a1 = 20 Then\r
  29             Throw New Exception("#WS2- Exit from With Statement failed")\r
  30         End If\r
  31     End Sub\r
  32 \r
  33 End Module