mcs/btests/AttributesC1.vb

   1 'Using private constructor in attributes\r
   2 Imports System\r
   3 \r
   4 <AttributeUsage(AttributeTargets.All)> _\r
   5 Public Class AuthorAttribute \r
   6      Inherits Attribute\r
   7         Public Name\r
   8         Private Sub New(ByVal Name As String)\r
   9                 Me.Name=Name\r
  10         End Sub \r
  11         Public ReadOnly Property NameP() As String\r
  12                 Get\r
  13                         Return Name\r
  14                 End Get\r
  15         End Property\r
  16 End Class\r
  17 \r
  18 \r
  19 <Author("Robin Cook")> _\r
  20 Public Class C1\r
  21         <Author("John")> _\r
  22         Public Sub S1()\r
  23         End Sub\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