FoxPro/Visual FoxPro - Como Hacer que un "Frase" parpadee o titile

Hola Amigos del Foro, como va, el otro dia mirando aca el ejemplo de Amadeo de tu demo TPV vi que en un campo Textbox supongo, dentro del mismo lo que estaba escrito parpadeaba o titilaba como señal de advertencia, no.

Ahora bien, alguien me puede decir como puedo lograr que un Label o que dentro de un textbox o de alguna forma una palabra, frase, etc, la pueda hacer parpadear o titilar como advertencia al usuario para casos de erros, etc, etc, ¿Espero me hayan entendido?

Como Siempre, desde ya Muchas gracias

Pablo - Argentina

hola pablo como andas , yo me supongo que usa un timer donde le debe cambiar la propiedad visible al text1 durante un cierto tiempo de segundos.
prueba algo y me cuentas.
yo voy a hacer lo mismo.
saludos

Ok, ALberto pruebo y te comento, si vos probas algo Avisame. ¿Como te fue con los articulos que te pase de la AFIP para las Fiscales?. te sirvieron de algo o es todo para otra cosa.

Pablo - Argentina

Hola Alberto, o al que me pueda ayudar, estuve probando con el Timer pero no logro resulado alguno, borro el texto que esta dentro del text1 pero no logro que vuelva a aparecer despues de determinado tiempo, no me funciona como lo que quiero hacer, por ahi estoy haciendo algo mal, seguro que aquel que ha usado el timer no es algo dificil de funcionar pero a mi hay algo que no me funca, si me pueden ayudar con lo que quiero lograr

Muchas Gracias

Pablo - Argentina

Hola:

En el evento Timer del control timer de tu formulario escribí:

ThisForm.TuLabel.Visible = ! ThisForm.TuLabel.Visible

o en lugar de esta sola línea.

IF ThisForm.TuLabel.Visible
...ThisForm.TuLabel.Visible = .F.
ELSE
...ThisForm.TuLabel.Visible = .T.
ENDIF

Luego en la propiedad Interval del timer, escribí la cantidad de milisegundos que queres que transcurran entre cada parpadeo. Por ejemplo 500 (1000 sería un segundo).

Creo que eso es todo.

Saludos

Javier (Jujuy-Argentina)

Perdón pero no leí bien el post, se trata de una caja de texto y yo te di un ejemplo con un label, pero creo que el concepto es el mismo.
Saludos.

Hola Javier, Como va, Mira ahi probe tu ejemplo y funciona de maravillas como lo que yo queria, pero tengo un pequeño problema, jajajaj, con los Label me funciona barbaro, ahora con el textbox no lo puedo hacer andar, no me muestra de nuevo el contenido del text, es raro porque deberia de funcionar, tendra algo que ver thisform.text1.value = "Prueba " ej, no es cierto hay algo que hago mal o no se, porque cambie los label por los text y nada, ¿que puede ser?

Muchas Gracias por tu ayuda

Pablo - La Pampa - Argentina

Hola Pablo probá con cambiarle el forecolor al textbox si mostras en negro ponele el mismo color que el fondo.

Hola Amigo, Bueno con el Label como ya saben y esta publicado funciona bien, con lo que les paso abajo tambien:

IF thisform.text7.Value = "Funciona"
thisform.text7.Value = " "
ELSE
thisform.text7.Value = "Funciona"
ENDIF

Asi como esta arriba funciona tambien, peroooo, si por ej al text7 le pongo = date()me da error de incompatibilidad entre operador y operando o sea un error tipo numerico o no se, si alguien me dice como es, por favor, muchas gracias

Pablo - Argentina

IF thisform.text7.Value = date()
thisform.text7.Value = {}
ELSE
thisform.text7.Value =date()
ENDIF

Muchas Gracias Marcelo, la verdad que eso de poner {} no la tenia, es mas no se ni para que sirven pero bueno, igual agradecido.

Pablo - Argentina

es una manera de representar una fecha vacia algo similar a poner CTOD(' / / ')