enum contain string

  • Thread starter Thread starter Cc
  • Start date Start date
* "Cc said:
is there a way to create enum that contain string?
Click to expand...

"No."

My FAQ:

\\\
Imports System.ComponentModel
Imports System.Reflection

..
..
..
MsgBox(GetDescription(Weekdays.Wed))
..
..
..

Private Enum Weekdays
<Description("Sunday.")> _
Sun
<Description("Monday.")> _
Mon
<Description("Tuesday.")> _
Tue
<Description("Wednesday.")> _
Wed
<Description("Thursday.")> _
Thu
<Description("Friday.")> _
Fri
<Description("Saturday.")> _
Sat
End Enum

Private Function GetDescription(ByVal EnumConstant As [Enum]) As String
Dim fi As FieldInfo = EnumConstant.GetType().GetField(EnumConstant.ToString())
Dim aattr() As DescriptionAttribute = _
DirectCast( _
fi.GetCustomAttributes(GetType(DescriptionAttribute), False), _
DescriptionAttribute() _
)
If aattr.Length > 0 Then
Return aattr(0).Description
Else
Return EnumConstant.ToString()
End If
End Function
///
 
Back
Top