使用函数将枚举值转换为英语

Question

我正在尝试编写一个将枚举值转换为英语的函数。

我可以轻松地将这一行作为行，但函数将是更好的解决方案。

例如：

Public Enum UpdateEnum
    No_Update_Required = 0
    WebSite_Needs_Update = 1
    Internal_Needs_Update = 2
End Enum

Public Enum EmailComparisonEnum
    WebSiteEmailRequiresUpdate = 0
    InternalEmailRequireUpdate = 1
    NoUpdateRequired = 2
End Enum

现在，我可以使用以下代码轻松地将枚举数值转换为英语：

EmailStatus = [Enum].GetName(GetType(EmailComparisonEnum), EnumVariable)

假设EnumVariable = 2.然后电子邮件状态将被分配“NoUpdateRequired”。

由于逐行执行此操作，每次我需要将枚举转换为英语时看起来很麻烦（重要）我有几种枚举类型;我想创建一个函数来执行此操作。

我目前的职能：

Private Function ConvertEnumValueToEnglish(EnumType As Type, Value As Integer) As String
    ConvertEnumValueToEnglish = [Enum].GetName(GetType(EnumType), Value)
End Function

但到目前为止我无法弄清楚如何做到这一点。