Companheiros, precisa da ajuda de vocês para a seguinte situação:

Através do Inet eu eu baixo dados direito do meu site para o aplicativo que desenvolvi.

O que preciso é desenvolver um barra de progresso que vai sendo animada a medida que os dados vão sendo recebidos.

Sei que o problema parece trivial, porem estou emprerrando nisso.

Alguem pode ma dar uma luz?

Desde já agradecido.

Segue ....


http://expertaccess.com.br/download.asp?id=53

Flavio, obrigado pela ajuda, mas o exemplo não me atende.

O que eu preciso é saber quantos bytes eu já recebi e ir animando a barra de progresso a medida os dados vão sendo recebidos.

Ex.: o arquivo orginal tem 1024 bytes (=100%)
eu estou baixando o arquivo e já recebi 124 (=10%) e assim por diante.

Se tiver alguma indeia fico agradecido.

A tá entendi ... vc nao consegue é contar os bits..

Oi, Crie um Módulo: mdl_Barra
Sub Rolagem_Valor(F As Form, Value As Integer)
Dim i As Integer
Dim NCaixas As Integer

NCaixas = CInt((18 * Value) / 100)
For i = 1 To 18

If NCaixas >= i Then F("C" & i).Visible = True

Next i
F.Repaint
End Sub


No seu form, crie 18 caixas (C1, C2, C3...C18)em sequência, que receberão o foco até completar 100% e
No timer do seu form, entre com o código:

Private Sub Form_Timer()
Static Soma100 As Integer

If Soma100 = 100 Then
Me.TimerInterval = 0
DoCmd.Close
Else
Soma100 = Soma100 + 10

intStop = 9
intStop = (Format(intStop / 10, "#")) * 10
intValue = intValue + 1
lblProgressStatus.Caption = Format$((intValue / intStop) * 100, "##") & "% Completo"
lblProgressStatus.ForeColor = 8388608

Rolagem_Valor Me, Soma100
End If
End Sub