VB.net (.NET 3.5) Пользовательский атрибут и Type.GetCustomAttribute() всегда 1

Question

Как я должен быть a) определять пользовательские атрибуты и b) получать указанное назначение пользовательских атрибутов в следующем сценарии?

Сценарий: мы хотели бы определить пользовательский атрибут (custAtrib1), который будет использоваться унаследованным классом (myClassFoo базового класса (myBase). Затем базовый класс будет извлекать пользовательские атрибуты, назначенные унаследованному экземпляру, а затем выполнить некоторые операции

Проблема:.. Всякий раз, когда GetCustomAttribute называется в базовом классе по отношению к унаследованного класса, метод GetCustomAttibutes возвращает только один результат (System.Runtime.CompilerServices.CompilerGlobalScopeAttribute)

Вот как атрибуты/классы определены:

Атрибут: (файл: myFoo.vb)

'----------------------------------------------------------------- 
Namespace Foo.CustomAttributes 

<System.AttributeUsage(AttributeTargets.Class, AllowMultiple:=True, inherited:=False)> _ 
Public Class custAttrib1 
    Inherits System.Attribute 

    Public Property myAttributeInto as String 
End Namespace 
'----------------------------------------------------------------- 

Базовый класс: (файл: myBar.vb)

'----------------------------------------------------------------- 
Namespace Foo.Bar 
Public Class myBase 

    Private Sub someCoolCode() 
     Dim myInstanceType as Type = me.GetType() 
     Dim custAttribs as Object() = myInstanceType.GetCustomAttributes(False) 

     '-- at this time, only content of custAttribs array is System.Runtime.CompilerServices.CompilerGlobalScopeAttribute) 
    End Sub 

End Class 
End Namespace 
'----------------------------------------------------------------- 

Наследуется Класс: (файл: myBar2.vb)

'----------------------------------------------------------------- 
Namespace Foo.Bar 
<Foo.CustomAttributes.custAttrib1(myAttributeInfo:="Coding if fun")> _ 
Public Class myClassFoo 
     '-- other cool stuff goes there 
    Public Sub inheritedMethod() 
    End Sub 
End Class 
End Namespace 
'----------------------------------------------------------------- 

Спасибо за вашу помощь

Answer 1

единственный PROB lem в вашем коде - это то, что вы не наследуете от базового класса. В противном случае он работает правильно.

Вот пример я использовал для тестирования, включая наследование и исправление опечаток:

Public Class Form1 

    Sub New() 

     ' This call is required by the designer. 
     InitializeComponent() 

     ' Add any initialization after the InitializeComponent() call. 

     Dim oClass = New myClassFoo 
     oClass.someCoolCode() 

    End Sub 

End Class 

<System.AttributeUsage(AttributeTargets.Class, AllowMultiple:=True, inherited:=False)> _ 
Public Class custAttrib1 
    Inherits System.Attribute 

    Public Property myAttributeInfo As String 
End Class 

Public Class MyBaseClass 

    Public Sub someCoolCode() 
     Dim myInstanceType As Type = Me.GetType() 
     Dim custAttribs As Object() = myInstanceType.GetCustomAttributes(False) 

     '-- at this time, only content of custAttribs array is System.Runtime.CompilerServices.CompilerGlobalScopeAttribute) 

     Debug.WriteLine(DirectCast(custAttribs(0), custAttrib1).myAttributeInfo) 
    End Sub 

End Class 

<custAttrib1(myAttributeInfo:="Coding is fun")> _ 
Public Class myClassFoo 
    Inherits MyBaseClass 

    '-- other cool stuff goes there 
    Public Sub inheritedMethod() 
    End Sub 
End Class