Visualizzare la percentuale di avanzamento progressbar

di anpol60 il
11 risposte
Utente Attivo
Iscritto da
set, 2020
Messaggi
67
Buonasera al gruppo,
come da titolo, chiederei, se possibile un aiutino per modificare un codice che funziona bene. Questo è il codice inserito nel CommandButton:
 For i = 1 To 100
ProgressBar1.Visible = True
Label34.Visible = True
.........
.........
.........
ProgressBar1.Value = i
Label34.Caption = Format(i / 100, "0.00%")
Next i
ProgressBar1.Visible = False
Label34.Visible = False
Questo codice mostra lo stato di avanzamento della progressbar secondo una percentuale intera (senza i decimali)
Sarei grato se poteste aiutarmi a modificare la riga 
Label34.Caption = Format(i / 100, "0.00%")
in modo da poter visualizzare anche i decimali di avanzamento.
Grazie

11 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Ma i quanto vale?
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    "i" rappresenta lo stato di avanzamento della progressbar. Da 1 a 100
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Ma procede con passi interi 1 2 3 4... quindi come puoi mai avere dei decimali?
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    La mia domanda era proprio questa.
    ci sono eventi per i quali la progressbar avanza lentamente. pensavo fosse possibile poter visualizzare anche la parte decimale nella label.
    Speravo fosse possibile modificare la riga della label, con una formula tipo quella per avere i decimi e centesimi di secondo in un cronometro.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Non ci siamo capiti, quello che dici non ha senso. La progressbar va alla velocità che vuoi tu. Dipende tutto dal massimo impostato e dal passo utilizzato.

    Ma poi a che ti serve la progressbar? Cosa fai all'interno del ciclo in 100 passi?
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    I ringrazio per la pazienza. Come ho detto all'inizio, la label mi visualizza la percentuale di avanzamento della progressbar, ma solo per il valore intero, senza decimali. All'interno del ciclo avvengono molte operazioni sul foglio excel.
    Visto che il codice funziona, la mia voleva essere solo la speranza che ci fosse un modo per abbellire la label che mi visualizzasse anche la parte decimale. Con questo volevo dire che non è importante ciò che avviene nel ciclo, bensì mi sarebbe piaciuto vedere scorrere anche la parte decimale dell'avanzamento della percentuale nella label.
    se sei d'accordo, posso ritenere concluso l'argomento.
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    Comunque sto facendo tentativi sulla riga 
    Label34.Caption = Format(i / 100, "0.00%")
    per cercare di giungere alla soluzione.
    Per adesso sono giunto a questo codice che più si avvicina al risultato che vorrei ottenere: 
    Label34.Caption = Format(i / 11000 + i / 1100 + i / 110, "0.00%")
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Fai una for fino a 1000 e usa i/1000 ma non capisco proprio a cosa ti possa servire
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    Buongiorno,
    Grazie Oregon per il consiglio, però non va bene.
    La label e la progressbar sono due oggetti separati che al momento dell'avanzamento devono aumentare simultaneamente di pari passo.
    Col tuo consiglio la label mi mostra correttamente la parte decimale della progressione, però quanto la progressbar è al 100%, la label è al 10% e continua ad avanzare fino a quando non arriverà al 100%.
    Penso che dovrò rinunciare al mio progetto dei decimali e lasciare la riga così com'é: 
    Label34.Caption = Format(i / 100, "0%")
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Ovviamente devi impostare il max della progressbar a 1000...

    Devi ragionare non rinunciare
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    Fatto!
    Risolto
    Grazie di nuovo
    Come sempre.
Devi accedere o registrarti per scrivere nel forum
11 risposte