Saudações rapaziada do VB !!!
Estou precisando usar uma barra de progresso ao executar o download, pois quando uso o esquema abaixo, a tela fica paralizada até concluir o download. Na verdade eu preciso mostrar uma barra de progresso , no caso não precisa ser igual a do windows ok !!!
'***************************************
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
MsgBox "O Download foi realizado com sucessso !"
Else
MsgBox "Ocorreu um erro durante a conexão. "
End If
End Function
Private Sub bot_COPIAR_ARQUIVO_Click()
'argumentos: a url do arquivo que quer baixar e o local e nome
'no caso estou usando um arquivo executavel para download
Private Sub BOT_FINAL_Click()
End
End Sub
'***************************************
Muito Obrigado pessoal !!!
Claudio Camara - RJ
