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 of a module. Isn there a VB4 equivelency?

Old Man

[Serge]

unfortunately, VB4 doens'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

[Sam Finch]

It's an advantage because it makes the Code more readable and Neater sure, but as far as the actual Running of the Final Product Goes there's no diffence between Enums and constants is There?

[Serge]

Nope. It will be just a lot easier to maintain (and read).