VB6 - how can i create my own color enum?

[joaquim]

how can i create my own color enum?

Private Enum WallColor
    color1 = vbRed
    color2 = vbBlue
End Enum

'sample
dim s as WallColor
s=0

the 's' must be red, but it's black
so how can i change my enum for get these results?

[Elroy]

Dim s As WallColor
s = color1

[joaquim]

i know that... but i need an integer value from a variable value...

s=wall[4] 'wall' it's an integer array.. true between 0 and 3 in these case

[baka]

just create a function

function WallColor&(Byval Id&)
select case id
case 0: WallColor = vbRed
End select
end function

s = wallcolor(0)

[Elroy]

Or initialize a cross-reference array, where the array's item values are the colors, and the array's index values are your numbers.

[baka]

in my game I do all that in my "builder-tool" so I do all the needed initalizations and that is saved to a file.
the main game will load that, so everything is prepared.
its both for in-game strings/numbers etc and the editor-pool, for all kinds of information.
as well as all items, maps etc.

[joaquim]

Or initialize a cross-reference array, where the array's item values are the colors, and the array's index values are your numbers.

i love your idea\sugestion.. thanks

[dilettante]

A color palette array seems like a good option if you use a set of colors by index value. But unless it must be variable I'm not sure how it is better than using enumerated constants.