Cambiar color de las letras en un control TextBox

[integral]

Que tal amigos :

Estoy tratando de cambiar el color de un mensaje de alerta contenido en in control Textbox ya sea en color Azul o Rojo según el Stock físico

Aquí muestro el código que estoy utilizando pero no cambia el color...

    IIF(Thisform.TextoStock.Value=">> Stock Insuficiente <<",Thisform.TextoStock.ForeColor=RGB(255,0,0),Thisform.TextoStock.ForeColor=RGB(0,0,255))

Algún colega que me pueda dar una idea o sugerencia sobre el tema.

Saludos,

INTEGRAL

[ZeRoberto]

Es en un grid o es un textbox suelto

Si es lo segundo, en el evento interactivechange le cambias el color

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/fe83276b-8492-4a40-ac35-b8a0f64968dd%40googlegroups.com.

[Fidel Charny]

Supongo que el valor del cuadro de texto lo introduce un método e evento del formulario.

Deberías usar el método ProgrammaticChange del texbox así:

this.forecolor = IIF(TRIM(This.text) == ">> Stock Insuficiente <<" , RGB(255,0,0) , RGB(0,0,255) )

[integral]

Amigo FIDEL :

Te muestro como estoy tratando de establecer el color del mensaje contenido en un TextBox

Boton Ultimo :

...

...

Thisform.TextoStock.Value = ALLTRIM(Mens_Stock)                  && Captura el Mensaje del Stock grabado en la tabla     

WAIT WINDOW "MENSAJE : " + Thisform.TextoStock.Value TIMEOUT 1

Thisform.TextoStock.Forecolor = IIF(ALLTRIM(Thisform.TextoStock.Value) = ">>Stock-Insuficiente<<" , RGB(255,0,0) , RGB(0,0,255) )  && Modificado

Le he quitado los espacios al mensaje y aun así no funciona

El código que muestras me da error en : THIS.TEXT..

Que faltara corregir...

Agradezco vuestra ayuda..

Saludos,

INTEGRAL

[HernanCano]

En los tres renglones de comendos VFP que muestras no hay "This.Text"

¿Nos estás mostrando lo justo para descubrir el error?

ThisForm.TextoStock.Value = alltrim(Mens_Stock)    && Captura el Mensaje del Stock grabado en la tabla     

wait window "MENSAJE: " + ThisForm.TextoStock.Value timeout 1

ThisForm.TextoStock.ForeColor = iif(alltrim(ThisForm.TextoStock.Value)=">>Stock-Insuficiente<<", RGB(255,0,0), RGB(0,0,255) )  && Modificado

Propuesta:

Si cambias la última instrucción por 

ThisForm.TextoStock.ForeColor = iif( upper("Insuficiente") $ upper(alltrim(ThisForm.TextoStock.Value)), RGB(255,0,0), RGB(0,0,255) )

¿te funciona mejor?

[Luis suescún]

Deberías mostrar como se actualiza el texto del textbox pq es posible que no coincida con la cadena de comparación que tienes en la función de desicion , y ademas responder si si lo estás haciendo desde el método interactivechange fado que debería variar por cada registro que se muestra .

Te lo están diciendo los colegas que son bien aventajados en estos menesteres ...

Saludos 

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/db9c2b3c-3682-4f70-b9e3-e6e0d909617a%40googlegroups.com.

[Zarlu]

Buenos días Integral!

Éste código funciona bien:

Thisform.text1.ForeColor=Iif(Thisform.text1.Value>0,RGB(0,0,255),RGB(255,0,0))

(Inclusive lo probé con ">> Stock Insuficiente <<")

Que es similar al que estas usando:

IIF(Thisform.TextoStock.Value=">> Stock Insuficiente <<",Thisform.TextoStock.ForeColor=RGB(255,0,0),Thisform.TextoStock.ForeColor=RGB(0,0,255))

(Pero elimina los "Thisform.TextoStock.ForeColor=" dentro del IIF)

Tambien toma nota de lo que dice Hernan Cano:

En los tres renglones de comendos VFP que muestras no hay "This.Text".

Pudiera ser que sea un error anterior y no que no llegue a ejecutarse la línea de cambio de color.

El IIF en Forecolor no manda error simplemente no se ejecuta si esta mal la sintaxis.´

Revisa letra a letra tu sintaxis y las mayúsculas/minúsculas del texo validado.

Aplica Alltrim() a Thisform.TextoStock.Value para la comparación

Saludos

Suerte

zarlu

Chetumal, Quintana Roo, México

[Zarlu]

ACLARACION  a mi mensaje anterior.

 

(una disculpa por no leer con atención) 

 

El mensaje de error de "This.Text.."es porque ejecutaste tal cual el código que te sugirió Fidel Charny.

 

El usó "This.." suponiendo que la validacion se hace en un método del mismo control, si es desde otro control

recuerda que debes hacer referencia completa a donde se encuentra el control "Thisform.text1.text...." o "Thisform.text1.Value.."

 

En tu código original falta el control que obtendrá el valor resultado del cumplimiento de la condición del IIF y que ejecutará el cambio

Algo así: Thisform.text1.ForeColor=IIF....

 

O si prefieres seguir con tu código original prueba esto:

x=IIF(Thisform.text1.Value=">> Stock Insuficiente <<","Thisform.text1.ForeColor=RGB(0,0,255)","Thisform.text1.ForeColor=RGB(255,0,0)")&&nota las comillas
&x

[integral]

Gracias a todos los amigos que me ayudaron a resolver el problema...

Tema Resuelto...

Saludos

INTEGRAL

El domingo, 28 de julio de 2019, 0:14:24 (UTC-5), integral escribió:

[HernanCano]

Alakazim, alakazam !!!!!