Como dejar los cuadros de textos numéricos en blanco

497 views
Skip to first unread message

Programador Desarrollador

unread,
Sep 4, 2010, 4:38:08 PM9/4/10
to Comunidad de Visual Foxpro en Español
Uffff, tengo rato en esto y no he lograrlo tener el resultado deseado.
Desde un botón quiero poner todos los cuadros de textos numéricos en
blanco y que no queden 0 (cero).

¿Como se hace?


Por ultimo trate con thisform.txtN1.value = "" , pero al ingresar
números y querer hacer cualquier operación con ellos me da error por
cuanto no los toma como números.

Gracias anticipadas por sus respuestas.

Luis Mata

unread,
Sep 4, 2010, 7:25:23 PM9/4/10
to Comunidad de Visual Foxpro en Español
Porque los quieres dejar en blanco?

Luis

-----Original Message-----
From: Programador Desarrollador
Sent: Saturday, September 04, 2010 1:38 PM
To: Comunidad de Visual Foxpro en Espa�ol
Subject: [vfp] Como dejar los cuadros de textos num�ricos en blanco

Uffff, tengo rato en esto y no he lograrlo tener el resultado deseado.

Desde un bot�n quiero poner todos los cuadros de textos num�ricos en


blanco y que no queden 0 (cero).

�Como se hace?


Por ultimo trate con thisform.txtN1.value = "" , pero al ingresar

n�meros y querer hacer cualquier operaci�n con ellos me da error por
cuanto no los toma como n�meros.

Mario López

unread,
Sep 4, 2010, 6:02:46 PM9/4/10
to Comunidad de Visual Foxpro en Español
@Programador Desarrollador:

podés "blanquear" el campo origen con

BLANK FIELDS Campo1, Campo2, Campo3... IN Alias

y después hacer ThisForm.Refresh()

HTH
Mario

On 4 sep, 17:38, Programador Desarrollador <pyd.en.sl...@gmail.com>
wrote:

Programador Desarrollador

unread,
Sep 4, 2010, 7:01:49 PM9/4/10
to Comunidad de Visual Foxpro en Español
Hola Luis y Mario gracias por responder.

Explico, estos cuadros de textos numéricos no estan enlazados a
ninguna tabla, ellos estan libres, los utilizo para ingresar cifras
númericas y de acurdo a ellos realizo operaciones matematicas tales
como sumar, restar, multiplicar, dividir.

Estos calculos se hacen dependiendo con lo que estoy trabajando para
ese momento. Ojo, no es una calculadora.

Los deseo limpiar para cuando ya alla trabajado con los primeros
resultados y quiera nuevamente trabajar con otros calculos.

Gracias anticipadas por sus respuestas.




> Gracias anticipadas por sus respuestas.- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

Luis Maria Guayan

unread,
Sep 4, 2010, 7:05:56 PM9/4/10
to publice...@googlegroups.com
Configura la propiedad Format = "Z"

Ej;
loMiForm = NEWOBJECT("MiForm")
loMiForm.SHOW(1)

DEFINE CLASS MiForm AS FORM
  AUTOCENTER = .T.
  CAPTION = "Ejemplo"
  NAME = "MiForm"

  ADD OBJECT text1 AS TEXTBOX WITH ;
    FONTSIZE = 18, ALIGNMENT = 3, ;
    VALUE = 0.00, FORMAT = "Z", ;
    HEIGHT = 37, LEFT = 120, ;
    TOP = 36, WIDTH = 145, ;
    NAME = "Text1"

  ADD OBJECT label1 AS LABEL WITH ;
    AUTOSIZE = .T., FONTSIZE = 18, ;
    BACKSTYLE = 0, CAPTION = "Valor1", ;
    HEIGHT = 30, LEFT = 36, ;
    TOP = 36, WIDTH = 70, NAME = "Label1"

  ADD OBJECT text2 AS TEXTBOX WITH ;
    FONTSIZE = 18,     ALIGNMENT = 3, ;
    VALUE = 0.00, FORMAT = "Z", ;
    HEIGHT = 37, LEFT = 120, ;
    TOP = 96, WIDTH = 145, ;
    NAME = "Text2"

  ADD OBJECT label2 AS LABEL WITH ;
    AUTOSIZE = .T., FONTSIZE = 18, ;
    BACKSTYLE = 0, CAPTION = "Valor2", ;
    HEIGHT = 30, LEFT = 36, ;
    TOP = 96, WIDTH = 70, NAME = "Label2"
ENDDEFINE

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

Programador Desarrollador

unread,
Sep 4, 2010, 7:18:25 PM9/4/10
to Comunidad de Visual Foxpro en Español
Gracias Sr. Luis María; es eso lo que queria hacer, me funciono,
agradecido con usted.
> _________________________http://www.PortalFox.com

Walter R. Ojeda Valiente

unread,
Sep 4, 2010, 8:36:16 PM9/4/10
to publice...@googlegroups.com
Dentro de las propiedades de cada campo de texto se encuentra una que se llama FORMAT. Coloca allí la letra "Z" (zeta mayúscula) y obtendrás lo que quieres.

ThisForm.Text1.Format = "Z"     && también puedes hacerlo en tiempo de diseño.

Saludos.

Walter.

Reply all
Reply to author
Forward
0 new messages