Progress Bar ........... No me entero.

Iniciado por el_trocha, 17 Septiembre 2007, 19:06 PM

0 Miembros y 1 Visitante están viendo este tema.

el_trocha

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.

LeandroA

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