mcs/btests/WithStatementB.vb

   1 Imports System\r
   2 \r
   3 \r
   4 Module WithStatementB\r
   5     Class C1\r
   6         Public a1 As Integer = 10\r
   7         Friend a2 As String = "Hello"\r
   8         Sub f1()\r
   9             Console.WriteLine("Class C1: {0} {1}", a1, a2)\r
  10         End Sub\r
  11     End Class\r
  12 \r
  13     Sub main()\r
  14         Dim a As New C1()\r
  15         With a\r
  16             a.a1 = 20\r
  17             .a2 = "Hello World"\r
  18             Dim x As New C1()\r
  19             a = x  ' Tried reassiging the object inside With statement\r
  20             If .a1 = a.a1 Or .a2 = a.a2 Then\r
  21                 Throw New Exception("#WS1 - With Statement failed")\r
  22             End If\r
  23             a.f1()\r
  24             .f1()\r
  25         End With\r
  26 \r
  27     End Sub\r
  28 \r
  29 End Module