mcs/btests/AssignmentStatementsC4.vb

   1 REM LineNo: 19\r
   2 REM ExpectedError: BC30524\r
   3 REM ErrorMessage: Property 'mystr' is 'WriteOnly'.\r
   4 \r
   5 Imports System\r
   6 Imports Microsoft.VisualBasic\r
   7 \r
   8 Module AssignmentStatementsC4\r
   9 \r
  10     Private str As String = "Hello VB.NET World"\r
  11     Public WriteOnly Property mystr() As String\r
  12         Set(ByVal Value As String)\r
  13             str = Value\r
  14         End Set\r
  15     End Property\r
  16 \r
  17     Sub main()\r
  18 \r
  19         Mid(mystr, 7) = "MS.NET"\r
  20         If mystr <> "Hello MS.NETBasic " Then\r
  21             Throw New Exception("#ASC41 - Assignment Statement failed")\r
  22         End If\r
  23 \r
  24     End Sub\r
  25 \r
  26 End Module\r