Enum in VB4?

[Old Man]

I'm trying to follow a coding example in VB5 and the words

private enum ...end enum

are used in the declarations section of a module. Is there a VB4 equivelency?


Old Man

[HeSaidJoe]

I have Peter Nortons Guide To Visual Basic 4
and there is no mention of Enum....I think the
book is very good so if it's not there, chance are
it isn't to be found!

[Serge]

Unfortuantely, VB4 doesn't support Enums.

[Sam Finch]

You Can Do Pretty Much The Same thing tho, where you get a statement

Public Enum MyEnum
    MyEnum1 = 1
    MyEnum2 = 2
    MyEnum3 = 3
End Enum

just Change it to

Public Const MyEnum1 = 1
Public Const MyEnum2 = 2
Public Const MyEnum3 = 3

and whereever it declares a variable As MyEnum declare it as Long instead. You won't get the picklists but all the Code will still work.

[Serge]

Advantage of Enums is that you can use it as a returned value (for example in a function):

Public Enum enumMyColor
    RED = 1
    BLUE = 2
    GREEN = 3
    YELLOW = 4
End Enum

Public Function GetMyColor() As enumMyColor
    'Do something here
    
    'Return Color Value (for example red)
    GetMyColor = RED
End Function