enum 使用描述

论坛问题贴：路径如下 http://social.microsoft.com/Forums/zh-CN/vbasiczhchs/thread/889fefb9-b98c-4a7a-86a2-c6359bd71cbb/?ffpr=0   Imports System

Imports System.Reflection

Enum Coolness As Byte

<Description("Not so cool")> _

NotSoCool = 5

Cool

End Enum

Class Description

Inherits Attribute

Public Text As String

Public Sub New(ByVal text__1 As String)

Text = text__1

End Sub

End Class

Module Module1

Private Function GetDescription(ByVal en As [Enum]) As String

Dim type As Type = en.[GetType]()

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

If memInfo IsNot Nothing AndAlso memInfo.Length > 0 Then

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

If attrs IsNot Nothing AndAlso attrs.Length > 0 Then

Return DirectCast(attrs(0), Description).Text

End If

End If

Return en.ToString()

End Function

Sub Main(ByVal args As String())

Dim coolType1 As Coolness = Coolness.Cool

Dim coolType2 As Coolness = Coolness.NotSoCool

Console.WriteLine(GetDescription(coolType1))

Console.WriteLine(GetDescription(coolType2))

Console.ReadLine()

End Sub

End Module