Refresco de la pantalla

23/09/2004 - 16:14 por Cecilio | Informe spam
Hola a todos.

Estoy haciendo un formulario que descarga actualizaciones de mi programa.
Para ello me conecto por Ftp y voy mostrando el tiempo restante con
PorgressBar y con un label los Bytes descargados / Totales. Actualizo estos
valores mediante esta simple función:

Public Sub evolucion(ByVal parcial As Long)

a.ProgressBar1.Value = CInt((parcial * 100) / tamDescarga)
a.Label1.Text = parcial & " / " & tamDescarga & "bytes"
a.Label1.Update()
a.ProgressBar1.Update()
End Sub

El problema es que mientras tengo el formulario en primer plano, funciona
perfectamente, pero cuando lo minimizo y lo restauro la ventana queda
"congelada, a pesar de que internamente se sigue descargando el archivo,
dando una imagen de que se ha quedado colgado.

¿Alguien sabe como solucionarlo?, he probado ha hacer un refresh al
formulario pero nada.

Un Saludo
 

Leer las respuestas

#1 Gonzalo Díaz
23/09/2004 - 16:35 | Informe spam
Proba poniendo despues del Progressbar1.Update() la siguiente linea:

Application.DoEvents()


Saludos !


"Cecilio" escribió en el mensaje
news:
Hola a todos.

Estoy haciendo un formulario que descarga actualizaciones de mi programa.
Para ello me conecto por Ftp y voy mostrando el tiempo restante con
PorgressBar y con un label los Bytes descargados / Totales. Actualizo


estos
valores mediante esta simple función:

Public Sub evolucion(ByVal parcial As Long)

a.ProgressBar1.Value = CInt((parcial * 100) / tamDescarga)
a.Label1.Text = parcial & " / " & tamDescarga & "bytes"
a.Label1.Update()
a.ProgressBar1.Update()
End Sub

El problema es que mientras tengo el formulario en primer plano, funciona
perfectamente, pero cuando lo minimizo y lo restauro la ventana queda
"congelada, a pesar de que internamente se sigue descargando el archivo,
dando una imagen de que se ha quedado colgado.

¿Alguien sabe como solucionarlo?, he probado ha hacer un refresh al
formulario pero nada.

Un Saludo


Preguntas similares