mcs/mbas/Test/errors/PropertyC3.vb

   1 REM LineNo: 10
   2 REM ExpectedError: BC30124
   3 REM ErrorMessage: Property without a 'ReadOnly' or 'WriteOnly' specifier must provide both a 'Get' and a 'Set'.
   4
   5 Imports system
   6
   7 Module M
   8         private i as integer
   9
  10         public Property p() as Integer
  11                 Get
  12                         return i
  13                 END Get
  14         End Property
  15
  16         Sub Main()
  17                 p = 10
  18                 Console.WriteLine(p)
  19         End Sub
  20
  21 End Module