mcs/btests/AttributesB.vb

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