Xailer & OZ Software

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

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
>
>

Acabo de prepararte uno al vuelo, espero que te sirva.
Salu2.
--

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.
>

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
>>
>>
>
>