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 - Adattare value progressbar ad invio files
Forum - Visual Basic 6 - Adattare value progressbar ad invio files

Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 23:08
Martedì, 17/06/2008
Dv far sì ke la "value" della progessbar raggiunga il massimo della value ad ogni invio files..da 1 programma ke ho fatto io.. tipo i download da internet dv mentre scarica il file c'è la progressbar ke aumenta secondo il suo scaricamento..

il codice essenziale ke uso per visualizzare i bystes durante l'invio dei files è questo.. credo ke basti..
Codice sorgente - presumibilmente VB.NET

  1. Option Explicit
  2.  
  3. Dim buffer() As Byte
  4. Dim lBytes As Long
  5. Dim temp As String
  6.  
  7. Private Sub wsTCP_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)
  8.     On Error Resume Next
  9.   If temp = "OK" Then
  10.     lBytes = lBytes + bytesSent
  11.     lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent"
  12.   End If
  13. End Sub


Ultima modifica effettuata da M@d_Hacker il 17/06/2008 alle 23:09
PM Quote
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 7:37
Mercoledì, 18/06/2008
E quindi ? La domanda non e' chiara o non e' completa ...

PM Quote
Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 10:08
Mercoledì, 18/06/2008
io devo far si ke la progressbar raggiunga il massimo della sua VALUE(la su proprietà progressbar1.value=progressbar1.value +1 x es.)..
tipo un codice del genere..
Cioè la progressbar dv aumentare così come aumenta il progresso dell'invio del files..
tipo quando si scarica 1 file da internet, dv esce la finestrella con la progressbar..

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Form_Activate()
  2. ProgressBar1.Min = 0
  3. ProgressBar1.Max = 100
  4. End Sub
  5. Private Sub wsTCP_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)
  6.     On Error Resume Next
  7.   If temp = "OK" Then
  8.     lBytes = lBytes + bytesSent
  9.     lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent"
  10.   If lBytes Then ProgressBar1.Value = ProgressBar1.Value + 1
  11.   If ProgressBar1.Value = 100 Then ProgressBar1.Value = 0
  12.   End If
  13. End Sub


Il codice ke ho appena postato è sbagliato..sl x farvi 1 esempio..
Vi allego un immagine comeesempio..


M@d_Hacker ha allegato un file: PROGRESSBAR.JPG (135419 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da M@d_Hacker il 18/06/2008 alle 10:13
PM Quote
Avatar
chen (Normal User)
Rookie


Messaggi: 54
Iscritto: 27/04/2008

Segnala al moderatore
Postato alle 16:07
Mercoledì, 18/06/2008
Forse, credo, basta che metti come max la dimensione del file da scaricare in byte, e aggiungi alla progressbar1.value=progressbar1.value + "i byte scaricati"..cosi appena ragiunge il max vuoldire che a finito di scaricare..nn vorrei dire cavolate:k:

PM Quote
Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 16:29
Mercoledì, 18/06/2008
Ho già provato prima ke me lo dicessi ma nn funziona..
Qualcuno ha una soluzione..8-|8-|:-?:-?

Ultima modifica effettuata da M@d_Hacker il 19/06/2008 alle 10:09
PM Quote