attributesclassused.vb

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

'Author: Ritvik Mayank <[e-mail]>
'Copyright (C) 2005 Novell Inc. (http://www.novell.com)
'Derived multi-use

Imports System

<AttributeUsage(AttributeTargets.Class, AllowMultiple:=True, _
                Inherited:=True)> _
Class MultiUseAttribute
    Inherits System.Attribute
    Public Sub New(ByVal Value As Boolean)
    End Sub
End Class

<AttributeUsage(AttributeTargets.Class, Inherited:=True)> _
Class SingleUseAttribute
    Inherits Attribute
    Public Sub New(ByVal Value As Boolean)
    End Sub
End Class

<SingleUse(True), MultiUse(True)> Class Base
End Class

<SingleUse(False), MultiUse(False)> _
Class Derived
    Inherits Base
End Class

Module Test
    Function Main() As Integer
        Dim type As Type = GetType(Derived)
        Dim arr() As Object = _
        type.GetCustomAttributes(GetType(MultiUseAttribute), True)
        If arr.Length <> 2 Then
            Throw New Exception("The Base Class should get single-use multiuse attribute .Expected 2 but got " & arr.Length)
        End If
    End Function
End Module