como utilizar el control PROGRESSBAR en VFP

Barra de progreso utilizada en el barrido de un cursor:

En un form inserta el control MICROSOFT PROGRESSBAR CONTROL
asignale el nombre de "progressbar1".

En la propiedad min del control progressbar1 digita 0
En la propiedad max del control progressbar1 digita 100

A continuacion te muestro el codigo para hacer funcionar el control progressbar:

Creo un cursor con el nombre "CONSIGNA"

Inserto un label o viñeta con el nombre "lblproceso" que muestra un rotulo con la informacion del proceso

Inserto un label o viñeta con el nombre "lblproceso1" que muestra el procentaje

 

ESTE CODIGO O RUTINA CREALA EN UN BOTON

SELECT CONSIGNA
       

        THISFORM.PROgressbar1.max=reccount("consigna")
        thisform.lblProceso.Caption = ‘PROCESANDO… ‘

 SCAN     &&hace un barrido del cursor CONSIGNA

            thisform.progressbar1.value = RECNO("consigna")
            thisform.lblProceso1.Caption =;

           STR(RECNO("Consigna")*100/RECCOUNT("consigna"))+"%"                                

            

           AQUI SE PUEDE CREAR UNA RUTINA O

            CODIGO DE PROGRAMACION

ENDSCAN

al terminar el barrido del cursor la barra debe quedar llena o completa

esta es la forma mas secilla de como utilizar la progressbar en VFP 8.0 

Acerca de Antonio

publico lo q me parece interesante en el momento q estoy viviendo Ver todas las entradas de Antonio

One response to “como utilizar el control PROGRESSBAR en VFP

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: