获取vb.net中的标记值

Imports System.Reflection

' 定义一个自定义属性
<AttributeUsage(AttributeTargets.Class)>
Public Class MyAttribute
    Inherits Attribute

    Public Property Value As String

    Public Sub New(value As String)
        Me.Value = value
    End Sub
End Class

' 应用自定义属性到类
<MyAttribute("Hello World")>
Public Class MyClass
End Class

Module Module1
    Sub Main()
        ' 获取类型的 Type 对象
        Dim myType As Type = GetType(MyClass)

        ' 获取应用于类型的所有自定义属性
        Dim attributes As Object() = myType.GetCustomAttributes(GetType(MyAttribute), False)

        ' 遍历自定义属性并获取标记值
        For Each attribute As MyAttribute In attributes
            Console.WriteLine(attribute.Value)
        Next

        Console.ReadLine()
    End Sub
End Module