mcs/btests/AttributesC4.vb

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