|
Título: Progress Bar ........... No me entero. Publicado por: el_trocha en 17 Septiembre 2007, 19:06 pm Mirad a ver si alguien me puede ayudar.
Intento poner un progres bar a mi aplicacion para que vaya en progreso junto con el archivo que me este descargando. Os pongo el codigo de mi aplicacion para que me digais a ver de que modo lo puedo hacer. mirad este es el CLIENTE donde quiero colocar el progress bar: Case "descarga" On Error Resume Next Put #2, , datos If Right(datos, 3) = "Fin" Or datos = "Fin" Then MsgBox "Descarga Finalizada", vbOKOnly Close #2 End If End Select Y os paso el codigo del SERVIDOR: Case "descarga" On Error GoTo errores Dim tamañofile As Long rutafile = vdatos(1) Open rutafile For Binary Access Read As #2 tamañofile = LOF(2) ReDim file(tamañofile - 1) Get #2, , file ws.SendData file ws.SendData "Fin" Close #2 Espero que me podais ayudar. Muchas gracias a todos camaradas. Título: Re: Progress Bar ........... No me entero. Publicado por: LeandroA en 17 Septiembre 2007, 19:53 pm hola este metodo no es en mi parecer no es efeciente, creo quela mejor forma es siempre enviar por trosos no todo de una, lo que tienes que hacer es leer el archivo por partes enviar el tamaño de la parte, la parte y el resto, y por cada envio vas sumando una linea a el progressbar (obiamente antes que todo Debes calcular cuantas van a ser las partes para poder establecer la propiedad .max de progressbar
Saludos |