Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Creare una Progress Bar Funzionante
Forum - Visual Basic 6 - Creare una Progress Bar Funzionante

Avatar
steven991 (Normal User)
Newbie


Messaggi: 20
Iscritto: 08/11/2009

Segnala al moderatore
Postato alle 19:47
Lunedì, 09/11/2009
Ho scaricato il componente XP CONTROLS.ocx che mi da una ProgressBar in stile Windows Xp.
Ora il mio programma appena avviato fa cio:
Codice sorgente - presumibilmente Visual Basic 6
  1. Private Sub Timer1_Timer()
  2. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  3. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  4. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  5. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  6. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  7. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  8. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  9. Timer1.Interval = 0
  10. MsgBox "OK COPIATO"
  11.  ff = FreeFile
  12.  
  13. End Sub


ovviamente lo fa con file diversi e ci mette un po di tempo. vorrei che la progress barr si caricasse man mano che compie le operazioni, dal momento che le compie in modo sequenziale, ovvero se sta scaricando il file 1 non inizia il 2 ma aspetta che finisce l'1.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 20:51
Lunedì, 09/11/2009
ricapitolando il tuo programma scarica uno dopo l'altro i file e tu vuoi mostrare nella progress bar a che punto siamo...

Allora, per far ciò conto le righe:
Codice sorgente - presumibilmente Plain Text
  1. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '1
  2. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '2
  3. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '3
  4. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '4
  5. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '5
  6. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '6
  7. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '7

ok, 7 righe, allora prima di tutte queste chiamate a DownloadFile scrivi ProgressBar1.Max = 7 e dopo ogni riga scrivi ProgressBar1.Value = ProgressBar1.value + 1 o direttamente il numero della riga...

esempio:
Codice sorgente - presumibilmente Plain Text
  1. ProgressBar1.Max = 7
  2. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  3. ProgressBar1.Value = ProgressBar1.value + 1
  4. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  5. ProgressBar1.Value = ProgressBar1.value + 1
  6. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  7. ProgressBar1.Value = ProgressBar1.value + 1
  8. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  9. ProgressBar1.Value = ProgressBar1.value + 1
  10. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  11. ProgressBar1.Value = ProgressBar1.value + 1
  12. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  13. ProgressBar1.Value = ProgressBar1.value + 1
  14. DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
  15. ProgressBar1.Value = ProgressBar1.value + 1
  16. msgbox "fine!"
  17. ecc..

Ultima modifica effettuata da GrG il 09/11/2009 alle 20:52
PM Quote
Avatar
steven991 (Normal User)
Newbie


Messaggi: 20
Iscritto: 08/11/2009

Segnala al moderatore
Postato alle 21:45
Lunedì, 09/11/2009
grazie :k:

PM Quote