Mostrar Datos asociados a un ProgresBar
Publicado por Gabriel (427 intervenciones) el 28/09/2007 19:03:10
Que tal amigos.
Estoy tratando de hacer lo siguiente :
Cargo en una Matriz los nombres de las Tablas a copiar de una carpeta a otra. Para hacer un efecto similar al del WINDOWS he insertado el ProgreasBar del VFP en un formulario. Ahora lo que deseo hacer es ir mostrando cada nombre de una TABLA a copiar y a la vez el ProgresBar se vaya incrementando...
Aqui lo avanzado...
ointer = Thisform.olecontrol2 && Barra de Progreso
ointer.Visible = .T.
ointer.Value = 0
DIMENSION Archivos[1,5]
nArchivos = ADIR(Archivos,"*.DBF")
xContador = INT(100 / nArchivos)
FOR nCOUNT = 1 TO nArchivos && Cada elemento
ThisForm.Label2.Caption = " " + Archivos(nCOUNT,1)
ointer.Value = ointer.Value + xContador
ENDFOR
Agradezco la ayuda que me puedan brindar...
Saludos,
GABRIEL
PD : AL DECIR EL EFECTO DEL WINDOWS ME REFIERO A LA VENTANA QUE APARECE CUANDO COPIAMOS ALGUN ARCHIVO Y NOS INDICA ADEMAS EN LA PARTE INFERIOR EL TIEMPO DEL PROCESO...
Estoy tratando de hacer lo siguiente :
Cargo en una Matriz los nombres de las Tablas a copiar de una carpeta a otra. Para hacer un efecto similar al del WINDOWS he insertado el ProgreasBar del VFP en un formulario. Ahora lo que deseo hacer es ir mostrando cada nombre de una TABLA a copiar y a la vez el ProgresBar se vaya incrementando...
Aqui lo avanzado...
ointer = Thisform.olecontrol2 && Barra de Progreso
ointer.Visible = .T.
ointer.Value = 0
DIMENSION Archivos[1,5]
nArchivos = ADIR(Archivos,"*.DBF")
xContador = INT(100 / nArchivos)
FOR nCOUNT = 1 TO nArchivos && Cada elemento
ThisForm.Label2.Caption = " " + Archivos(nCOUNT,1)
ointer.Value = ointer.Value + xContador
ENDFOR
Agradezco la ayuda que me puedan brindar...
Saludos,
GABRIEL
PD : AL DECIR EL EFECTO DEL WINDOWS ME REFIERO A LA VENTANA QUE APARECE CUANDO COPIAMOS ALGUN ARCHIVO Y NOS INDICA ADEMAS EN LA PARTE INFERIOR EL TIEMPO DEL PROCESO...
Valora esta pregunta


0