attributesclassnoparametera.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'Author: Ritvik Mayank <[e-mail]>
'Copyright (C) 2005 Novell Inc. (http://www.novell.com)
' Passing No parameter for Attributes
Imports System

<AttributeUsage(AttributeTargets.Class Or AttributeTargets.Interface)> _
Public Class SimpleAttribute
    Inherits System.Attribute

    Public Sub New()
        Me.A = A
    End Sub

    Public B As String
    Private A As String

    Public ReadOnly Property A1() As String
        Get
            Return A
        End Get
    End Property
End Class

<Simple()> _
Class Class1
End Class

<Simple()> _
Public Interface Interface1
End Interface
Module Test
    Function Main() As Integer
    End Function
End Module