mcs/btests/AttributesC2.vb

   1 Imports System\r
   2 \r
   3 <AttributeUsage(AttributeTargets.All)> _\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 End Class\r
  11 \r
  12 \r
  13 <Author("Robin Cook")> _\r
  14 Public Class C1\r
  15         <Author("John")> _\r
  16 \r
  17 End Class\r
  18 \r
  19 Module Test\r
  20         Sub Main()\r
  21 \r
  22                 Dim type As Type=GetType(C1)\r
  23                 Dim arr As Object()=type.GetCustomAttributes(GetType(AuthorAttribute),True)\r
  24                 If arr.Length=0 Then\r
  25                         Console.WriteLine("Class has no attributes")\r
  26                 Else\r
  27                         Dim aa As AuthorAttribute=CType(arr(0),AuthorAttribute)\r
  28                         Console.WriteLine("Name:" & aa.Name)\r
  29                 End If\r
  30         End Sub\r
  31 End Module\r