mcs/btests/AttributesC5.vb

   1 Imports System\r
   2 'Using a single-use attribute multiple times\r
   3 <AttributeUsage(AttributeTargets.Class, AllowMultiple:=False)> _\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         Public ReadOnly Property NameP() As String\r
  11                 Get\r
  12                         Return Name\r
  13                 End Get\r
  14         End Property\r
  15 End Class\r
  16 \r
  17 \r
  18 <Author("Robin Cook"),Author("John Gresham")> _\r
  19 Public Class C1\r
  20         \r
  21         Public Sub S1()\r
  22         End Sub\r
  23 \r
  24 End Class\r
  25 \r
  26 Module Test\r
  27         Sub Main()\r
  28 \r
  29         End Sub\r
  30 End Module\r