mcs/mbas/Test/tests/Attributes.vb

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