Learn how to build an E-Commerce site with Angular 5, a JavaScript framework used by developers to build web, desktop, and mobile applications.
Iterating an Enum using a function
I have this code to extract the members from an Enum.
How can I turn this into a function that takes the Enum Name as a string ?
Dim items As Array
items = System.Enum.GetValues(GetType(someEnum))
Dim item As String
For Each item In items
MessageBox.Show(item)
Next
How can I turn this into a function that takes the Enum Name as a string ?
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
It's quite easy:
You need only the fully qualified name of the type.
Namespace Test
Enum EnumTest
etOne
etTwo
etThree
End Enum
End Namespace
Module Module1
Sub Main()
Dim item As String
For Each item In System.Enum.GetValues(GetType(Test.EnumTest))
Console.WriteLine(item)
Next
For Each item In System.Enum.GetNames(GetType(Test.EnumTest))
Console.WriteLine(item)
Next
Dim enumValue As Test.EnumTest
enumValue = System.Enum.Parse(GetType(Test.EnumTest), "etTwo")
Console.WriteLine(System.Enum.GetName(GetType(Test.EnumTest), enumValue))
enumValue = System.Enum.Parse(Type.GetType("Console_VB.Test.EnumTest", True), "etTwo")
Console.WriteLine(System.Enum.GetName(Type.GetType("Console_VB.Test.EnumTest"), enumValue))
Console.WriteLine("Done.")
Console.ReadLine()
End Sub
End Module
You need only the fully qualified name of the type.
Have you tested my example? Why should
not solve your problem?
Type.GetType("Console_VB.Test.EnumTest", True)
not solve your problem?
Module Module1
Sub Main()
Dim c As ConsoleColor = GetEnumByName("test")
End Sub
Function GetEnumByName(ByVal name As String) As ConsoleColor
For Each item In [Enum].GetNames(GetType(ConsoleColor))
If String.Equals(name, item, StringComparison.OrdinalIgnoreCase) Then
Return DirectCast([Enum].Parse(GetType(ConsoleColor), name), ConsoleColor)
End If
Next
Return DirectCast(-1, ConsoleColor) ' You may want to change this to some other default value
End Function
End Module
I'm using ConsoleColor here, but you can change that to match your enum of concern. Also, I've specified a default return of -1 if the enum value isn't found, but you can change that to a more fitting value. If you'd rather have Nothing returned, then you'll need to change the function definition to return a Nullable enum instead:
Module Module1
Sub Main()
Dim c As ConsoleColor = GetEnumByName("test")
End Sub
Function GetEnumByName(ByVal name As String) As Nullable(Of ConsoleColor)
For Each item In [Enum].GetNames(GetType(ConsoleColor))
If String.Equals(name, item, StringComparison.OrdinalIgnoreCase) Then
Return DirectCast([Enum].Parse(GetType(ConsoleColor), name), ConsoleColor)
End If
Next
Return Nothing
End Function
End Module
Ah maybe a re-phrase is in order ?
I want to return the Members of a given Enum.
So with Ste5an's EnumTest...
Function getEnumMembersByEnumName(e
Would give..
etOne
etTwo
etThree
I want to return the Members of a given Enum.
So with Ste5an's EnumTest...
Function getEnumMembersByEnumName(e
Would give..
etOne
etTwo
etThree
Using ste5an's example, are you saying that your function would receive "EnumTest" as input?
e.g.
e.g.
Function SomeFunction(ByVal enumName As String) As String()
...
It's alread in my sample:
Just make your function return an array and add proper exception handling when necessary.
System.Enum.GetNames(Type.GetType(enumName , True))
Just make your function return an array and add proper exception handling when necessary.
The Enum is defined a Public in a User Control.
I can use Ste5an's
from within the control, but when I try to use it from the page that the control is in I get an ArguementNullExeption. I've tried using assembly.namespace.enum but no luck :(
I can use Ste5an's
Type.GetType("enumTheme", True)
from within the control, but when I try to use it from the page that the control is in I get an ArguementNullExeption. I've tried using assembly.namespace.enum but no luck :(
Premium Content
You need an Expert Office subscription to comment.Start Free Trial