[VB6]visualizzazione barra o messaggio waiting o altro...

[ghiboz]

ciao, con questo codice mi scarico un file presente in webUrl e lo metto in sFile..

  
  buffer = Inet1.OpenURL(webUrl, icByteArray)
  Kill sFile
  FileNR = FreeFile
  Open sFile For Binary As FileNR
  Put FileNR, , buffer
  Close FileNR
  On Error Resume Next

fin qui funza tutto alla grande, ma visto che il file potrebbe essere lungo, esiste un modo per far vedere all'utilizzatore ke il programma non è piantato, ma semplicemente sta scaricando delle cose...????
non so, progress bar, messaggio di attesa, ...

tnx!!

[Dardino]

per il messaggio di attesa è banal la soluzione:

  On Error Resume Next
  MyLabel.Caption="Caricamento in Corso..."
  DoEvents
  buffer = Inet1.OpenURL(webUrl, icByteArray)
  Kill sFile
  FileNR = FreeFile
  Open sFile For Binary As FileNR
  Put FileNR, , buffer
  Close FileNR
  MyLabel.Caption="Caricamento Completato"
  DoEvents