Geeks With Blogs
George Clingerman

[Edit:] The code was edited to reflect some suggestions in the comments by Lorin Thwaits. Thanks again Lorin!

   1:          Private Enum Direction
   2:              Up
   3:              Down
   4:              Left
   5:              Right
   6:          End Enum
   8:          'Desc: Cycle through all of the possible directions and Move in that direction. 
   9:          Private Sub MoveInAllDirections()
  10:              'Fill an array of all the possible Directions from the enum
  11:              Dim aDirections As System.Array = System.Enum.GetValues(GetType(Direction))
  13:              'Move through each object in the Direction array
  14:              For Each aValue As Direction In aDirections
  15:                  'Move in that direction
  16:                  Call MoveIt(aValue)
  17:              Next
  18:          End Sub
  20:          'Desc: Move in the specified direction
  21:          Private Sub MoveIt(ByVal theDirection As Direction)
  22:              'Move, Move!
  23:          End Sub

I've been wanting to figure out how to do this for quite a while and I finally took the time to get a solution. If you've ever needed to traverse through all of the objects in an enum, this is how you do it.

The important line of code here is Line 11. With the "System.Enum.GetValues" you can return all of the values of an enum into an array. Now traversing the enum is as simple as move through all of the objects contained in an array.

With this new technique, I've been able to refactor large blocks of code that called a function one by one for each value in an enum. Basically copy and pasted code with just the enum value being passed in to the function changing. Now, I can just loop through the values and call the function within the loop. So much cleaner and when the enum expands, no new code to write.

Hopefully this helps someone else out as well. I know that now that I have this little trick, I'm busy moving through my code and seeing where else this can be used.

Posted on Monday, November 13, 2006 9:12 AM | Back to top

Comments on this post: Cycle through all the objects in an Enum

# re: Cycle through all the objects in an Enum
Requesting Gravatar...
An idea for simplification: Why not axe line 16 entirely, and on line 14 change out "Object" to instead be "Direction", and "aValue" to instead be "aDirection"? No need for the extra memory gymnastics of shuffling around the object, then boxing it later as a Direction.

Also if you're running this code in a WinForms app then the method name "Move" conflicts with the OnMove event that's a part of every control. Perhaps it could be called "DoMove" or something.
Left by Lorin Thwaits on Nov 13, 2006 9:36 PM

# re: Cycle through all the objects in an Enum
Requesting Gravatar...
I don't know why I didn't do it that way in the example to begin with. Thanks for pointing that out to me Lorin. I'm going to edit my post to reflect that change.

As far as the name of the functions. These functions were just samples I pulled out of the air. I will change the name though just so somebody trying the code out doesn't have problems due to that.

Thanks again for the great advice.
Left by George on Nov 14, 2006 5:53 AM

Your comment:
 (will show your gravatar)

Copyright © George Clingerman | Powered by: