mcs/btests/AssignmentStatementsC4.vb

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