Dim items As Array
items = System.Enum.GetValues(GetType(someEnum))
Dim item As String
For Each item In items
MessageBox.Show(item)
Next
Type.GetType("Console_VB.Test.EnumTest", True)
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
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
Function SomeFunction(ByVal enumName As String) As String()
...
System.Enum.GetNames(Type.GetType(enumName , True))
Type.GetType("enumTheme", True)
Open in new window
You need only the fully qualified name of the type.