1 ) it'sEnum With description
Public Enum ActionDrug_list
<Description("Drug withdrawn")> Drug_withdrawn = 1
<Description("Drug reduced")> Drug_reduced = 2
<Description("Drug increased")> Drug_increased = 3
<Description("Dose not changed")> Dose_not_changed = 4
<Description("Unknown")> Unknown = 5
<Description("Not applicable")> Not_applicable = 6
End Enum
2) Method For Calling by passing Enum type
Public Function GetActionDrugList(Nodevalue As String, type As ConversionTYpe) As String
Dim ActionDrug As ActionDrug_list
Return GetStringvalue(ActionDrug, Nodevalue)
End Function
3) Method For getting Descrption value
Private Function GetStringvalue(ByVal EnumName As [Enum], ByVal cmpvalue As String) As String
Dim items As Array
Dim Type_ = EnumName.GetType()
items = System.Enum.GetValues(EnumName.GetType())
For Index = 0 To items.Length
Dim description As String = GetEnumDescription(DirectCast(Index, EnumName.GetType()))
Next Index
Return ""
End Function
But here i am uanble To pass Enumname for GetEnumDescription line
Dim description As String = GetEnumDescription(DirectCast(Index, EnumName.GetType()))
it's Show That EnumName is Not the valid type even I triyed Get type from it via
EnumName.GetType()
is there any way to Do that?
What I have tried:
Dim description As String = GetEnumDescription(DirectCast(Index, EnumName.GetType()))