Letras resaltantes

[Johnny Flores Colonia]

Buenas tardes

deseo saber si hay manera de poner un aviso en un formulario en VFP 9, un mensaje 

"Procesando informacion espere por favor...."

ese mensaje quiero que este color Rojo, negrita y resealtante

ese decir como si se estuviene apagando y prendiendo

hasta que termine un proceso, como un porcentaje de avance.

espero que me puedan entender mi solicitud.

Gracias en la espera de una pronta ayuda.

[Sergio Rojas]

Pones la leyenda bien visible y color llamativo, letra grande.

Thisform.labelX.visible = .f.

cuando queres mostrar el texto:

Thisform.labelX.visible = .t.

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/7d351cad-2986-4a73-82ef-ec87fd3a304bn%40googlegroups.com.

[Eduardo Armonti]

Mensaje titilante

 

En un control timer y en el método timer poner

THISFORM.LABEL1.VISIBLE = ! THISFORM.LABEL1.VISIBLE

RETURN

 

Y en las propiedades del control timer pones

THISFORM.TIMER1.INTERVAL = 500

 

Enviado desde Correo para Windows

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/7d351cad-2986-4a73-82ef-ec87fd3a304bn%40googlegroups.com.

 

Libre de virus. www.avast.com

[Luis Maria Guayan]

Puedes utilizar un Timer y en cada ciclo cambias el color del Label o lo apagas y prendes.

LOCAL loForm

loForm = CREATEOBJECT("MiForm")

loForm.SHOW(1)

DEFINE CLASS MiForm AS FORM

  CAPTION = "Ejemplo"

  BACKCOLOR = RGB(255,0,0)

  NAME = "MiForm"

  ADD OBJECT label1 AS LABEL WITH ;

    FONTBOLD = .T., ;

    FONTSIZE = 16, ;

    ALIGNMENT = 2, ;

    BACKSTYLE = 0, ;

    CAPTION = "Comunidad VFP en español", ;

    HEIGHT = 48, ;

    LEFT = 24, ;

    TOP = 96, ;

    WIDTH = 312, ;

    NAME = "Label1"

  ADD OBJECT label2 AS LABEL WITH ;

    FONTBOLD = .T., ;

    FONTSIZE = 16, ;

    FORECOLOR = RGB(255,255,255), ;

    ALIGNMENT = 2, ;

    BACKSTYLE = 0, ;

    CAPTION = "Nada corre como el zorro !!!", ;

    HEIGHT = 48, ;

    LEFT = 24, ;

    TOP = 160, ;

    WIDTH = 312, ;

    NAME = "Label2"

  ADD OBJECT timer1 AS TIMER WITH ;

    INTERVAL = 333, ;

    NAME = "Timer1"

  PROCEDURE timer1.TIMER

    IF EMPTY(THIS.TAG)

      THISFORM.Label1.FORECOLOR = RGB(255,255,0)

      THIS.TAG = "TAG"

    ELSE

      THISFORM.Label1.FORECOLOR = RGB(0,0,0)

      THIS.TAG = ""

    ENDIF

    THISFORM.Label2.VISIBLE = NOT THISFORM.Label2.VISIBLE

  ENDPROC

ENDDEFINE

Luis María Guayán
Tucumán, Argentina
_______________________________

Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Zarlu]

Buenas noches flores.cje !

Para que proceso lo quieres?

Para un proceso Select SQL agrego como parte del Where algo asi:

Select .......Where .....and Thisform.label3.Refresh(" Espere por favor.... " )

*inmediatamente después esta línea

Thisform.label3.Refresh()&&el label se vuelve visible=.f.

*en el refresh del label3 :

PARAMETERS lcLabel
IF PCOUNT()>0
    This.ForeColor=IIF(This.ForeColor=RGB(255,255,255),RGB(192,192,192),RGB(255,255,255))
    This.Caption=lcLabel
    This.Visible=.t.
Else
    This.Caption=""
    This.Visible=.f.
ENDIF

Suerte

zarlu

Chetumal, Quintana Roo, México