mcs/btests/ArrayC5.vb

   1 REM LineNo: 18\r
   2 REM ExpectedError: BC30524\r
   3 REM ErrorMessage: Property 'myprop' is 'WriteOnly'\r
   4 \r
   5 Imports System\r
   6
   7 Module ArrayC5\r
   8 \r
   9     Dim a As Integer() = {1, 2, 3, 4}\r
  10     Public WriteOnly Property myprop() As Integer()\r
  11         Set(ByVal Value As Integer())\r
  12             a = Value\r
  13         End Set\r
  14     End Property\r
  15
  16     Sub Main()
  17
  18         ReDim Preserve myprop(5)\r
  19         myprop(4) = 10\r
  20         For i As Integer = 0 to myprop.Length - 1\r
  21             Console.WriteLine(myprop(i))\r
  22         Next\r
  23
  24     End Sub
  25 End Module