In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Algun ejemplo de ProgressBar

Foro público de Xailer en español
Responder
soporte
Mensajes: 39
Registrado: Lun Dic 18, 2006 12:19 pm

Algun ejemplo de ProgressBar

Mensaje por soporte »

Alguien podría mostrarme un ejemplo con ProgressBar
--
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.pv2000.com.mx
soporte@pv2000.com.mx
Arriba
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

Algun ejemplo de ProgressBar

Mensaje por Rolando »

Guillermo:
METHOD BtnBmp2Click( oSender ) CLASS TForm2
Local a, cFile, cDes, nLen
::aTot := Directory( ::oBrowseForFolderDlg1:cRoot+"*.*" )
nLen := Len( ::aTot )
::oProgressBar1:nMax := nLen
For a := 1 to nLen
cFile := ::oBrowseForFolderDlg1:cRoot+""+::aTot[a][1]
cDes := ::aTot[a][1]
Copy File (cFile) To (cDes)
::oProgressBar1:nValue := a
Next
....
Saludos
"Guillermo Guevara C." <soporte@pv2000.com.mx> escribió en el mensaje
news:473c555a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Alguien podría mostrarme un ejemplo con ProgressBar
>
> --
> Ing. Guillermo Guevara C.
> Grupo Computación 2000
> Nuevo Mundo Nº 2821
> Jardines de la Cruz
> Guadalajara, Jal. 44950
> (33) 1078-8363 / 1078-8364
> www.pv2000.com.mx
> soporte@pv2000.com.mx
>
>
Arriba
Bingen Ugaldebere
Mensajes: 1310
Registrado: Mié Sep 26, 2007 7:12 pm

Algun ejemplo de ProgressBar

Mensaje por Bingen Ugaldebere »

Acabo de prepararte uno al vuelo, espero que te sirva.
Salu2.
--
Arriba
soporte
Mensajes: 39
Registrado: Lun Dic 18, 2006 12:19 pm

Algun ejemplo de ProgressBar

Mensaje por soporte »

Bingen Muchas Gracias Buenisimo
--
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.pv2000.com.mx
soporte@pv2000.com.mx
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:473c6aa1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Acabo de prepararte uno al vuelo, espero que te sirva.
>
> Salu2.
>
Arriba
soporte
Mensajes: 39
Registrado: Lun Dic 18, 2006 12:19 pm

Algun ejemplo de ProgressBar

Mensaje por soporte »

Muchas Gracias Rolando
--
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.pv2000.com.mx
soporte@pv2000.com.mx
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=473c5b52@ozsrv2.ozlan.local...]473c5b52@ozsrv2.ozlan.local...[/email]
> Guillermo:
>
> METHOD BtnBmp2Click( oSender ) CLASS TForm2
> Local a, cFile, cDes, nLen
>
> ::aTot := Directory( ::oBrowseForFolderDlg1:cRoot+"*.*" )
> nLen := Len( ::aTot )
> ::oProgressBar1:nMax := nLen
>
> For a := 1 to nLen
> cFile := ::oBrowseForFolderDlg1:cRoot+""+::aTot[a][1]
> cDes := ::aTot[a][1]
> Copy File (cFile) To (cDes)
> ::oProgressBar1:nValue := a
> Next
> ...
> Saludos
>
> "Guillermo Guevara C." <soporte@pv2000.com.mx> escribió en el mensaje
> news:473c555a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Alguien podría mostrarme un ejemplo con ProgressBar
>>
>> --
>> Ing. Guillermo Guevara C.
>> Grupo Computación 2000
>> Nuevo Mundo Nº 2821
>> Jardines de la Cruz
>> Guadalajara, Jal. 44950
>> (33) 1078-8363 / 1078-8364
>> www.pv2000.com.mx
>> soporte@pv2000.com.mx
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Spanish”