Limitar valores de una variable?

[hugo180486]

Hola Buenas Dias! Tengo una duda espero puedan ayudarme, y si existe alguna solucion a mi duda...

Disculpen el ejemplo tan absurdo pero funcionara para lo que quiero preguntar.

Código vb:

Sub Poner(ByVal band As Bollean)
 
'Codigo X
 
End Sub
 

Cuando a un procedimieno le pasamos como parametro una variable Boolean Visual Basic nos 2 por default solo los 2 valores que esta puede tener verdad?, Croe que hasta ahi estaremos deacuerdo...

Si yo quisiera pasar como parametro una variable que se llame Colores, me gustaria que VB me dejara escoger entre Rojo, Verde, Naranja etc...

Esto se puede hacer, de poderse como se hace, alguien sabe?

Les Adradesco de antemano el tiempo invertido aqui...

[erbuson]

Hola, puedes probar con lo siguiente:

Private Sub Colorear(Byval QueColor As ColorConstants)
Label1.BackColor = QueColor
End Sub


Cuando teclees CALL Colorear( te aparecerán la lista de constantes de color

Esto no evita que puedas teclear Call Colorear(25) ' Por ejemplo

No se si esto es lo que preguntas, pero probablemente te sirva de ayuda.

Saludos

[erbuson]

Releyendo con calma tu mensaje veo que si es esto lo que tu quieres, pero que quieres hacerlo con tus colores personalizados.

Esto se consigue con el Enum. Este ejemplo está copiado de la Ayuda de VB

Public Enum InterfaceColors
icMistyRose = &HE1E4FF
icSlateGray = &H908070
icDodgerBlue = &HFF901E
icDeepSkyBlue = &HFFBF00
icSpringGreen = &H7FFF00
icForestGreen = &H228B22
icGoldenrod = &H20A5DA
icFirebrick = &H2222B2
End Enum

Entonces, tu defines el Sub de la siguiente manera, mas o menos como antes te decía:

Private Sub Colorear(Byval QueColor As InterfaceColors)
Label1.BackColor = QueColor
End Sub

y voilá, cuando escribas el Call Colorear( te aparecerá la lista que pides.

Saludos y disculpa por no habértelo explicado bien a la primera de cambio, porque lo de Visual Basic nos 2 por default solo los 2 valores no lo había acabado de pillar.

[hugo180486]

Ah Grandioso, justo como lo imagine que me funcionaria, Gracias por la ayuda!