mcs/btests/AttributesB.vb

   1 Imports System
   2 'Testing 'Inherited' in attributes
   3 <AttributeUsage(AttributeTargets.Class, AllowMultiple:=True, Inherited:=True)> _
   4 Public Class AuthorAttribute
   5      Inherits Attribute
   6         Public Name
   7         Public Sub New(ByVal Name As String)
   8                 Me.Name=Name
   9         End Sub
  10         Public ReadOnly Property NameP() As String
  11                 Get
  12                         Return Name
  13                 End Get
  14         End Property
  15 End Class
  16
  17
  18 <Author("Robin Cook"),Author("Authur Haily")> _
  19 Public Class C1
  20
  21         Public Sub S1()
  22         End Sub
  23
  24 End Class
  25
  26 Public Class C2
  27      Inherits C1
  28
  29 End Class
  30
  31 Module Test
  32         Sub Main()
  33
  34         End Sub
  35 End Module