Enums -> How can I get a list of all the elements in it

[MrPolite]

Meh, me = confused

I want to get a list of all the elements in an Enum...
let's say I have this:

Enum SomeThing
       A = 1
       B
       C
       D
End Enum

Let's say I want to add all the values AND all the names of the variables in that enum in a listbox...how can I do that

so the listbox will be something like this:
"A = 1"
"B = 2"
"C = 3"


I think it's possible to do this with the parse method if you know the name of the variables... but what if I dont know that

[Edneeis]

Enum SomeThing
               A = 1
               B
               C
               D
        End Enum
 
 
        'this assumes there is a listbox named lstSomethings
 
        Dim nms As Array
        nms = SomeThing.GetNames(GetType(SomeThing))
        Dim o As String
        For Each o In nms
            lstSomethings.Items.Add(o)
        Next

That will fill in the names you'll have to mess with it bit if you want the name=value. Although there is a GetValues method just like the getNames method so it shouldn't be hard.

[Edneeis]

Actually I went ahead and worked out the rest for ya real quick:

Enum Animals
        Dog
        Cat
        Bird
        Elephant
    End Enum
 
        Dim vals As Array
        Dim nams As Array
        vals = Animals.GetValues(GetType(Animals))
        nams = Animals.GetNames(GetType(Animals))
        Dim cnt As Short
        Dim cntMax As Short
        cntMax = vals.Length - 1
        For cnt = 0 To cntMax
            cboAnimals.Items.Add(nams.GetValue(cnt) & "=" & vals.GetValue(cnt))
        Next
        vals = Nothing
        nams = Nothing

The code assumes a combo or list box named cboAnimals and should be put in the form_load or some other sub.

[MrPolite]

Originally posted by Edneeis
Actually I went ahead and worked out the rest for ya real quick:

Enum Animals
        Dog
        Cat
        Bird
        Elephant
    End Enum
 
        Dim vals As Array
        Dim nams As Array
        vals = Animals.GetValues(GetType(Animals))
        nams = Animals.GetNames(GetType(Animals))
        Dim cnt As Short
        Dim cntMax As Short
        cntMax = vals.Length - 1
        For cnt = 0 To cntMax
            cboAnimals.Items.Add(nams.GetValue(cnt) & "=" & vals.GetValue(cnt))
        Next
        vals = Nothing
        nams = Nothing

The code assumes a combo or list box named cboAnimals and should be put in the form_load or some other sub.

tnx alot!!!
Umm just one more question...I have option strict on and when I was tying to do this I got an error:
Dim anAnimal as Animal = DirectCast(nams(0), Animal)

that didnt work, but when I changed nams(0) to nams.GetValue(0) it worked fine. Like this:
Dim anAnimal as Animal = DirectCast(nams.GetValue(0), Animal)


can anyone explain why?

[dlu102]

Can you do this in VB 6? I don't believe there is an array type?

[Edneeis]

No this can't be done in VB6. I wish there was.

[MrPolite]

down with vb6