获取枚举类型Enum的注释内容。

最新推荐文章于 2024-07-26 19:48:56 发布

老侯

最新推荐文章于 2024-07-26 19:48:56 发布

阅读量4.1k

点赞数 1

分类专栏： VB.NET

本文链接：https://blog.csdn.net/hxcttt/article/details/8982733

版权

VB.NET 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

Imports System.Runtime.CompilerServices
Imports System.Reflection

Public Class EnumDescription
    Inherits Attribute

    Private _text As String

    Sub New(ByVal text As String)
        _text = text
    End Sub

    ReadOnly Property Text
        Get
            Return _text
        End Get
    End Property

End Class



Public Module EnumExtensions
    <Extension()> _
    Public Function ToDescription(enumeration As [Enum]) As String

        Dim type As Type = enumeration.GetType()

        Dim memInfo As MemberInfo() = type.GetMember(enumeration.ToString())

        If (memInfo IsNot Nothing) AndAlso (memInfo.Length > 0) Then

            Dim attrs As Object() = memInfo(0).GetCustomAttributes(GetType(EnumDescription), False)

            If (attrs IsNot Nothing) AndAlso (attrs.Length > 0) Then

                Return (TryCast(attrs(0), EnumDescription)).Text

            End If
        End If

        Return enumeration.ToString()

    End Function

End Module