mcs/btests/PropertyE.vb

   1 REM LineNo: 16
   2 REM ExpectedError: BC30610
   3 REM ErrorMessage: Class 'C2' must either be declared 'MustInherit' or override the following inherited 'MustOverride' member(s): Public MustOverride Property p() As Integer.
   4
   5 REM LineNo: 21
   6 REM ExpectedError: BC31404
   7 REM ErrorMessage: 'Public Shadows Property p() As Integer' cannot shadow a method declared 'MustOverride'.
   8
   9 Imports system
  10
  11 MustInherit Class C1
  12         public MustOverride Property p() as Integer
  13 End Class
  14
  15
  16 Class C2
  17         Inherits C1
  18
  19         private i as integer
  20
  21         public shadows Property p() as Integer
  22                 SET (ByVal val as Integer)
  23                         i = val
  24                 End SET
  25
  26                 GET
  27                         return i
  28                 END GET
  29         End Property
  30 End Class
  31
  32
  33 Module M
  34         Sub Main()
  35         End Sub
  36
  37 End Module