mcs/btests/Attributes.vb

   1 Imports System\r
   2 \r
   3 <AttributeUsage(AttributeTargets.All, AllowMultiple:=True)> _\r
   4 Public Class AuthorAttribute \r
   5      Inherits Attribute\r
   6         Public Name As String\r
   7         Public No As Integer\r
   8         Public Sub New(ByVal Name As String)\r
   9                 Me.Name=Name\r
  10         End Sub \r
  11         Public Sub New(ByVal Name As Integer)\r
  12                 Me.Name=Name.toString()\r
  13         End Sub \r
  14 End Class\r
  15 \r
  16 <AttributeUsage(AttributeTargets.All)> _\r
  17 Public Class PublicationAttribute \r
  18      Inherits Attribute\r
  19         Public Name\r
  20         Public Sub New(ByVal Name As String)\r
  21                 Me.Name=Name\r
  22         End Sub \r
  23         \r
  24 End Class\r
  25 \r
  26 \r
  27 <Publication("Tata McGraw"),AuthorAttribute("Robin Cook",No:=47),Author(10)> _\r
  28 Public Class C1\r
  29         <Author("John"),Publication("Tata McGraw")> _\r
  30         Public Sub S1()\r
  31         End Sub\r
  32 End Class\r
  33 \r
  34 Module Test\r
  35         Sub Main()\r
  36 \r
  37         End Sub\r
  38 End Module\r