Título: Progress Bar NECESITO AYUDA Publicado por: el_trocha en 18 Septiembre 2007, 18:46 pm Mirad camaradas, tengo el siguiente codigo en mi aplicacion y no consigo hacer que mi progress bar funcione y no se por que.
Espero me podais ayudar. CLIENTE: Private Sub btdescarga_Click() 'boton que le dice al servidor que inicia la descarga del archivo de esa ruta que hemos introducido en un txtbox rutadestino = "C:\Documents and Settings\Armando_Bollos\Mis documentos\Mis archivos recibidos\Archivos Recibidos\" & fileselect Open rutadestino For Binary As #2 y = "tamaño-" wc.SendData y & txtruta.Text 'enviamos la ruta del archivo al server. donde = "tamaño" ' Le pedimos que mande el resultado al case tamaño del datarrival LLEGADA AL SERVER DE LA INFORMACION: Case "tamaño" rutafile = vdatos(1) Call tamaño Private Sub tamaño() Dim size As String Open rutafile For Binary Access Read As #3 size = CStr(LOF(3)) ' su tamaño Close #3 ws.SendData size ' Envia al cliente el tamañodel archivo End Sub LLEGADA AL CLIENTE DE LA INFORMACION: Case "tamaño" tamañofile = datos 'Meto en esa variable el tamaño del archivo PB.Min = (datos - datos) ' Pongo elminimo de la barra de pregreso PB.Max = datos ' pongo el maximo de la barra de progreso PB.Value = PB.Min ' establezco el valor de la barra de progreso sizefilerecibido = 0 ' establezco el valor que ira sumando los bytes que vayan entrando y = "descarga-" wc.SendData y & txtruta.Text 'envio al server que puede empezar a enviar datos donde = "descarga" LLEGADA DE DATOS AL SERVER : 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 End Sub LLEGADA DE DATOS AL CLIENTE: Case "descarga" On Error Resume Next Put #2, , datos sizefilerecibido = sizefilerecibido + bytesTotal 'Sumo a la variable los datos que van entrando PB.Value = sizefilerecibido 'asigno el valor de la variable al valor de la progres bar If Right(datos, 3) = "Fin" Or datos = "Fin" Then If sizefilerecibido >= sizefile Then Close #2 sizefilerecibido = 0 PB.Value = PB.Max MsgBox "Descarga Finalizada", vbOKOnly End If PB.Value = 0 End If Espero me podais ayudar. Un saludo. Muchas gracias. |