USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Download
Claudio_VB6
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 06/09/2005 16:19 hs            
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
    ret = DownloadFile("http://microsoft.com/library/homepage/images/ms-banner.gif", "c:arquivo.gif")
End Sub
 
Private Sub BOT_FINAL_Click()
    End
End Sub
'***************************************
 
Muito Obrigado pessoal !!!
 
Claudio Camara - RJ
   
Douglas
não registrado
Postada em 25/07/2008 19:42 hs   
     
Douglas
não registrado
ENUNCIADA !
Postada em 25/07/2008 19:43 hs   
Estou na mesma ki vc !
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página