IMAGENS ANIMADAS NO VB.NET
Bom dia, estou com o seguinte problema.
em um formulário, preciso colocar um gif animado durante o download de um arquivo. mas o gif fica estatico, e só começa a se mover após o término do download.já li varios posts sobre isso mas nenhum deles funcionou. Alguém consegue me ajudar? abaixo segue o código que utilizo.
Try
t = New Threading.Thread(AddressOf exibeprogressbar)
t.Start()
My.Computer.Network.DownloadFile([Ô]http://www.meusite.com.br/teste/teste/database/contagem/[Ô] & redecarregada & empresacarregada & [Ô]_contbarr.mdb[Ô], [Ô]C:\updi\inventario\system\db este.mdb[Ô])
[ô]progbar.Close()
t1.Abort()
MsgBox([Ô]aacabou[Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possÃvel localizar o Banco de dados para contagem.[Ô] + vbCrLf + [Ô]Verifique sua conexão com a internet, ou entre novamente no menu de gerente[Ô] + vbCrLf + [Ô]e solicite um novo arquivo de contagem[Ô])
Exit Sub
End Try
Public Sub exibeprogressbar()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf exibeprogressbar))
Return
End If
pcb_progressbar.Visible = True
Application.DoEvents()
End Sub
Agradeço, a ajuda, sou iniciante em vb.net, obrigado.
em um formulário, preciso colocar um gif animado durante o download de um arquivo. mas o gif fica estatico, e só começa a se mover após o término do download.já li varios posts sobre isso mas nenhum deles funcionou. Alguém consegue me ajudar? abaixo segue o código que utilizo.
Try
t = New Threading.Thread(AddressOf exibeprogressbar)
t.Start()
My.Computer.Network.DownloadFile([Ô]http://www.meusite.com.br/teste/teste/database/contagem/[Ô] & redecarregada & empresacarregada & [Ô]_contbarr.mdb[Ô], [Ô]C:\updi\inventario\system\db este.mdb[Ô])
[ô]progbar.Close()
t1.Abort()
MsgBox([Ô]aacabou[Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possÃvel localizar o Banco de dados para contagem.[Ô] + vbCrLf + [Ô]Verifique sua conexão com a internet, ou entre novamente no menu de gerente[Ô] + vbCrLf + [Ô]e solicite um novo arquivo de contagem[Ô])
Exit Sub
End Try
Public Sub exibeprogressbar()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf exibeprogressbar))
Return
End If
pcb_progressbar.Visible = True
Application.DoEvents()
End Sub
Agradeço, a ajuda, sou iniciante em vb.net, obrigado.
Faça o download através de um BackGroundWorker que o GIF fica radoando de boa, vlw!
Faça seu login para responder