从Value获取VB.net枚举描述

发布时间：2020-12-17 00:10:07 所属栏目：大数据来源：网络整理

导读：如何从它的价值获得枚举描述？我可以从名称中获取描述： Public Shared Function GetEnumDescription(ByVal EnumConstant As [Enum]) As String Dim fi As FieldInfo = EnumConstant.GetType().GetField(EnumConstant.ToString()) Dim attr() As Descriptio

如何从它的价值获得枚举描述？

我可以从名称中获取描述：

Public Shared Function GetEnumDescription(ByVal EnumConstant As [Enum]) As String
    Dim fi As FieldInfo = EnumConstant.GetType().GetField(EnumConstant.ToString())
    Dim attr() As DescriptionAttribute = _ 
                  DirectCast(fi.GetCustomAttributes(GetType(DescriptionAttribute),_
                  False),DescriptionAttribute())

    If attr.Length > 0 Then
        Return attr(0).Description
    Else
        Return EnumConstant.ToString()
    End If
End Function

但是我不知道如何将变量名称传递给这个函数.我已经尝试过了

GetEnumDescription([Enum].GetName(GetType(myEnum),2)))

但我没有尝试过是正确的.

如果你有一个enum类型的变量,那就是简单的

GetEnumDescription(myEnum)

最小工作实例：

Enum TestEnum
    <Description("Description of Value1")>
    Value1
End Enum

Public Sub Main()
    Dim myEnum As TestEnum = TestEnum.Value1
    Console.WriteLine(GetEnumDescription(myEnum)) ' prints "Description of Value1"
    Console.ReadLine()
End Sub

如果您有一个Integer变量,则需要先将其转换为您的枚举类型(CType也可以使用)：

GetEnumDescription(DirectCast(myEnumValue,TestEnum))

工作实例：

Enum TestEnum
    <Description("Description of Value1")>
    Value1 = 1
End Enum

Public Sub Main()
    Console.WriteLine(GetEnumDescription(DirectCast(1,TestEnum)))
    Console.ReadLine()
End Sub

您的混淆的根源似乎是一个误会：您的方法不会将枚举的“名称”作为参数,它将枚举作为参数.这是不同的,这也是为什么尝试使用GetName失败的原因.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!