Comments on: Custom Enumerations

By: Eric

Eric — Tue, 13 May 2008 16:43:00 +0000

Is there an easy way to check if a value corresponds to an Enum, such as dkMsgText above?

Say I had a Long variable: faveNum = 2

Could I somehow check if faveNum's current value is valid in dkMsgText? It should be in this case, since it matches dkWorld's value.

I've tried things like "For Each e in dkWorld", but it doesn't let you do that.

By: Jamie Collins

Jamie Collins — Wed, 09 Mar 2005 14:57:00 +0000

Here's a quick re-write:

Sub SayHello(ByVal eText As dkMsgText)

Dim sText As String

If eText And dkHello Then
sText = "Hello"
End If

If eText And dkWorld Then
sText = sText & LTrim$(sText & " World")
End If

If eText And dkExclaim Then
sText = sText & "!"
End If

MsgBox sText

End Sub

By: Steve Drenker

Steve Drenker — Wed, 09 Mar 2005 03:19:00 +0000

Hi, Dick. In your "Custom Enumerations" article on 7/20/04 you said that "Testing the additive nature of the enumeration can be done without testing every possible combination by using bitwise comparisons. But that's a subject for another post."

I'm currently checking every combination with If/ElseIf/End If and Select Case / End Case statements. It's a pain the keister.

I'm familiar with using binary series and custom enumerations, but haven't quite got the hang of setting bits in a number to avoid having to check every comparison.

Can you shed some light on how to do this? Did you every write that other post you talked about?

By: Dick

Dick — Fri, 23 Jul 2004 15:08:00 +0000

Jamie: I’m ashamed to say that it’s pure laziness. At one point I resolved to always use ByRef and ByVal explicitly so that I could get in the habit or really choosing instead of just accepting the default. As you can see, that didn’t last.

By: Jamie Collins

Jamie Collins — Fri, 23 Jul 2004 10:50:00 +0000

"Sub SayHello(eText As dkMsgText)"

Sorry to be pedantic but it is Friday... Why pass the eText argument by reference?

Jamie.

By: ross

ross — Wed, 21 Jul 2004 11:04:00 +0000

wow, i never knew you could do that! cool