Como Pasar Nombre String A Integer?


Objetivo: Como Pasar Nombre String A Integer?
buenas

tengo este problema..
tengo este texto: background=color.red

como puedo hacer para pasar color.red que es un string a esa constante integer?

lo único que se me ocurre es cortar por el punto e identificar el color tipo

selec case textocolor
case "red"
variable=color.red
case "black"
variable=color.black
case else
variable=color.default
end select

alguna sugerencia?

Objetivo: Re: Como Pasar Nombre String A Integer?
v3ctor escribió: [Ver mensaje]
color.red que es un string

Porque dices que color.red es un string ?
06-01-2b-257e-2bsmiley-2b-257e-2broll-2beyes

Perfil MP  
Objetivo: Re: Como Pasar Nombre String A Integer?
Hola.

No lo he probado, pero pienso que la función eval puede ser una respuesta

http://gambaswiki.org/wiki/lang/eval

Saludos.

Objetivo: Re: Como Pasar Nombre String A Integer?
Hola v3ctor

Tal vez usando...

Public icolr As Integer = 255 'Valor de color rojo
Public icolg As Integer = 0 'valor de color verde
Public icolb As Integer = 0 'valor de color azu

Como son valores "enteros" será fácil modificarlos...
Todo lo que tienes que hacer ahora es escribir algo como esto:
Me.Background = Color.RGB(icolr, icolg, icolb)

Espero que este pequeño ejemplo le sea útil....

Que tengas un buen día.

Perfil MP  
Objetivo: Re: Como Pasar Nombre String A Integer?
Yo pero no comprendí su pregunta inicial !

Perfil MP  
Objetivo: Re: Como Pasar Nombre String A Integer?
razaAztk escribió: [Ver mensaje]
Hola.

No lo he probado, pero pienso que la función eval puede ser una respuesta

http://gambaswiki.org/wiki/lang/eval

Saludos.


el enlace me da error

Objetivo: Re: Como Pasar Nombre String A Integer?
vuott escribió: [Ver mensaje]
v3ctor escribió: [Ver mensaje]
color.red que es un string

Porque dices que color.red es un string ?
06-01-2b-257e-2bsmiley-2b-257e-2broll-2beyes


porque la información la tomo de un texto

Objetivo: Re: Como Pasar Nombre String A Integer?
razaAztk escribió: [Ver mensaje]
Hola.

No lo he probado, pero pienso que la función eval puede ser una respuesta

http://gambaswiki.org/wiki/lang/eval

Saludos.


parece que has dado en el clavo, he probado esto y hace lo que pretendo

Public Sub Button11_Click()
Dim esto As Variant
Dim colores As Collection

esto = Eval("color.red", colores)

TreeView1.Background = Eval("color.red", colores)

Print esto

End


gracias voy a profundizar un poco mas a ver si realmente consigo lo que estoy buscando, saludos

Objetivo: Re: Como Pasar Nombre String A Integer?
v3ctor escribió: [Ver mensaje]
"color.red"

Ah, ahora comprendo.

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1026s (PHP: 29% SQL: 71%)
Consultas SQL: 20 - Debug off - GZIP Activado