Aug 22
Aquí tienes un ejemplo de como hacer una barra de progreso utilizando la clase que viene con VFP para dicho propósito.
cRutaClase = Home()+"FFC\_therm.vcx"
cTitulo = "Ejemplo
de barra de Progreso"
oBarra = Newobject("_thermometer",cRutaClase, "",; cTitulo, 100, 1)
With oBarra
.Visible
= .T.
.Update(10,
"Buscando...")
Inkey(.2)
&& Para producir
retardo en el ejemplo
.Update(20,
"Paso 1")
Inkey(.2)
.Update(40,
"Paso 2")
Inkey(.2)
.Update(70,
"Paso 3")
Inkey(.2)
.Update(90,
"Paso 4")
Inkey(.2)
.Update(100,
"Terminado!")
Inkey(.2)
.Release()
Endwith
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
