FOR ENDFOR "PALITO" QUE MOLESTA

102 views
Skip to first unread message

Abel Flecha

unread,
Jan 18, 2017, 3:59:56 PM1/18/17
to Comunidad de Visual Foxpro en Español

Hola como hago para sacar ese "palito" que aparece/desaparece cuando estoy haciendo un FOR
(Esa barra de progreso la hice a manopla)

Gracias!!!

Antonio Meza

unread,
Jan 18, 2017, 4:08:13 PM1/18/17
to Comunidad de Visual Foxpro en Español
O sea te estas echando un palito a mano? jejejej

Pon el código porque no se sabe si usas un textbox o un label o container para mostrar el porcentaje.

saludos
Antonio Meza

Abel Flecha

unread,
Jan 18, 2017, 4:12:46 PM1/18/17
to Comunidad de Visual Foxpro en Español
LABEL

Abel Flecha

unread,
Jan 18, 2017, 4:14:10 PM1/18/17
to Comunidad de Visual Foxpro en Español
thisform..lblPor.Caption = TRANSFORM( lnValor, "@R %999")

Irwin Rodriguez

unread,
Jan 18, 2017, 4:27:18 PM1/18/17
to publice...@googlegroups.com
Lo has probado asi:

thisform..lblPor.Caption = "%" + TRANSFORM( lnValor, "999")
--
DISTRIBUIDORA IRSESU, C.A
J-29947174-7
Irwin Rodríguez - Director
Analista Programador - Freelance
+584125210679

Barquisimeto - Venezuela
Desarrollos online dentro y fuera del país

Carlos Hidalgo

unread,
Jan 18, 2017, 6:21:48 PM1/18/17
to publice...@googlegroups.com

Pues yo antes de conocer la función Transform usaba algo así

THISFORM.PORCENTAJE.Caption=STR((nContador/nTotalRegistro)*100,3,0)+"%"

Me funciona. No hay  palito ni manopla
😀😀

Abel Flecha

unread,
Jan 19, 2017, 7:16:35 AM1/19/17
to Comunidad de Visual Foxpro en Español
Pinche Palito! no se quita!

ZeRoberto

unread,
Jan 19, 2017, 7:18:52 AM1/19/17
to publicesvfoxpro
Debe ser alguna falla grafica no creo que ese caracter se inserte en el label, prueba tratando de recompilar el formulario pero antes hazle un pack.
--

Fidel Charny

unread,
Jan 19, 2017, 7:49:38 AM1/19/17
to Comunidad de Visual Foxpro en Español
Probaste con SYS(2002) / SYS(2002,1) ?

ZeRoberto

unread,
Jan 19, 2017, 7:54:13 AM1/19/17
to publicesvfoxpro
Ve si no tienes esto en tu bucle

WAIT NOWAIT TIMEOUT 0.1

Abel Flecha

unread,
Jan 19, 2017, 8:11:46 AM1/19/17
to Comunidad de Visual Foxpro en Español
Era el WAIT NOWAIT

el tema es que quiero engañar al usuario para que vea q hay un "proceso"... pero quitando el WAIT NOWAIT aparece el 100% de una...

Voy a probar con un Timer y les cuento.

Saludos!

PD: Les dejo un regalito... 





El miércoles, 18 de enero de 2017, 17:59:56 (UTC-3), Abel Flecha escribió:

Carlos Hidalgo

unread,
Jan 19, 2017, 8:52:13 AM1/19/17
to publice...@googlegroups.com
No solo engañaras a los usuarios.... también a nosotros...
jajajaja

Mario López

unread,
Jan 19, 2017, 10:14:48 AM1/19/17
to Comunidad de Visual Foxpro en Español

@Abel: solución rápida, usá INKEY(nSegundos, "H") para hacer la pausa: la opción “H” permite ocultar el cursor gráfico, que es la línea vetical que te está apareciendo. Esto funciona siempre y cuando no toquen ninguna tecla, por supuesto.

HTH
Mario

Reply all
Reply to author
Forward
0 new messages