Newsgroup: it.comp.lang.visual-basic
Titolo: VBA for application per Excel

Scusate! Avrei bisogno di un'informazione!
Vorrei sapere come fare ad usare la progressbar che ho trovato tra i comandi
di Excel VBA.
Ha chiunque mi possa dare anche solo un aiuto sono grato fin d'ora.
ENRICO
wwwpunt...@libero.it

 ha scritto nel messaggio
news:8gbu30$9qr$1...@pegasus.tiscalinet.it...

Ti allego un pezzo della documentazione di Visual Basic in merito,
naturalmente devi controllare le proprietà e nel caso non corrispondano devi
aggiornarli.
Comunque il funzionamento è semplice basta impostare un valore massimo e poi
assegnarlo, ad esempio progressbar.value = 1, progressbar.value = 2, e così
via.
Puoi anche utilizzare un evento timer e non solo, insomma puoi sbizzarirti
con la fantasia.
Ecco l'esempio proposto dall signora Microsoft®:
Nella situazione qui descritta viene utilizzata la proprietà PercentPosition
dell'oggetto Recordset. Tale proprietà restituisce un numero che rappresenta
un valore percentuale compreso tra 0 e 100. All'avvio del form la proprietà
Max deve pertanto essere impostata su 100. Per impostazione predefinita, la
proprietà Min viene impostata su 0. Il codice seguente nasconde il controllo
barra di avanzamento e imposta la corrispondente proprietà Max su 100.
Private Sub Form_Load()
   prgLoad.Visible = False
   prgLoad.Max = 100
End Sub
Inserimento di dati nella struttura tramite l'istruzione Do Until
Nota   Il codice seguente si basa sul codice riportato in "Esempio del
controllo visualizzazione struttura: associazione al database Biblio.mdb".
Il codice completo è incluso nell'applicazione di esempio DataTree.vbp.
Per popolare un controllo visualizzazione struttura tramite un database, è
possibile utilizzare un ciclo Do Until. Il codice è simile al seguente:
' Si presuppone che la variabile dell'oggetto Recordset
' "rsTitles" sia stata impostata su una tabella
' di database valida.
Do Until rsTitles.EOF
   ' Crea un oggetto Node in base al record corrente.
   Set mNode = TreeView.Nodes.Add()
   ' Imposta le proprietà dell'oggetto Node.
   mNode.Text = rsTitles!Fields(1).Value
   ' Si sposta sul record successivo.
   rsTitles.MoveNext
Loop
Per aggiornare il controllo barra di avanzamento, è necessario utilizzare la
proprietà PercentPosition dell'oggetto Recordset che restituisce la
posizione del gruppo di record corrente come percentuale del numero totale
di record. Il codice per l'aggiornamento del controllo barra di avanzamento
deve quindi essere inserito nel ciclo, come nel codice seguente:
Do Until rsTitles.EOF
   ' Aggiorna il controllo barra di avanzamento.
   prgLoad.Value = rsTitles.PercentPosition
   Set mNode = TreeView.Nodes.Add()
   ' Imposta le proprietà dell'oggetto Node.
   mNode.Text = rsTitles!Fields(1).Value
   ' Si sposta sul record successivo.
   rsTitles.MoveNext
Loop
Al completamento del ciclo nascondere il controllo barra di avanzamento
Dopo aver popolato il controllo visualizzazione struttura con oggetti Node,
è possibile nascondere il controllo barra di avanzamento nel modo seguente:
Private Sub cmdLoad_Click()
   ' Visualizza il controllo barra di avanzamento.
   prgLoad.Visible = True
Do Until rsTitles.EOF
      ' Aggiorna il controllo barra di avanzamento.
      prgLoad.Value = rsTitles.PercentPosition
      Set mNode = TreeView.Nodes.Add()
      ' Imposta le proprietà dell'oggetto Node.
      mNode.Text = rsTitles!Fields(1).Value
      ' Si sposta sul record successivo.
      rsTitles.MoveNext
   Loop
   ' Nasconde il controllo barra di avanzamento.
   prgLoad.Visible = False
End Sub