mcs/btests/AttributesC3.vb

   1 REM LineNo: 21
   2 REM ExpectedError: BC31506
   3 REM ErrorMessage: 'AuthorAttribute' cannot be used as an attribute because it is declared 'MustInherit'.
   4
   5 REM LineNo: 21
   6 REM ExpectedError: BC30644
   7 REM ErrorMessage: Attribute cannot be used on 'C1'.
   8
   9 Imports System
  10
  11 <AttributeUsage(AttributeTargets.All)> _
  12 Public MustInherit Class AuthorAttribute
  13      Inherits Attribute
  14         Public Name
  15         Public Sub New(ByVal Name As String)
  16                 Me.Name=Name
  17         End Sub
  18 End Class
  19
  20
  21 <Author("Robin Cook")> _
  22 Public Class C1
  23         Public Sub S1()
  24         End Sub
  25 End Class
  26
  27 Module Test
  28         Sub Main()
  29
  30         End Sub
  31 End Module