mcs/btests/AttributesC3.vb

   1 'Using MustInherit on a attribute class\r
   2 Imports System\r
   3 \r
   4 <AttributeUsage(AttributeTargets.All)> _\r
   5 Public MustInherit Class AuthorAttribute \r
   6      Inherits Attribute\r
   7         Public Name\r
   8         Public Sub New(ByVal Name As String)\r
   9                 Me.Name=Name\r
  10         End Sub \r
  11 End Class\r
  12 \r
  13 \r
  14 <Author("Robin Cook")> _\r
  15 Public Class C1\r
  16         <Author("John")> _\r
  17         Public Sub S1()\r
  18         End Sub\r
  19 \r
  20 End Class\r
  21 \r
  22 Module Test\r
  23         Sub Main()\r
  24 \r
  25         End Sub\r
  26 End Module\r