[VB6] progress bar

[totti240282]

come si usa una progress bar e da dove devo andarla a prendere ???????????

[MMarzia]

è un controllo activeX che puoi inserire selezionando i Microsoft Windows Common Controls nei componenti ...

[MMarzia]

per usarla:

assegni un valore massimo

ProgressBar1.Max = ...

un valore minimo

ProgressBar1.Min = ...

e durante l'elaborazione scrivi il valore corrente

ProgressBar1.Value= ...

spero sia chiaro

[totti240282]

e durante l'elaborazione scrivi il valore corrente

code:--------------------------------------------------------------------------------ProgressBar1.Value= ...--------------------------------------------------------------------------------


in che senso???????

cmq grazie di tutto

[MMarzia]

se ad esempio stai ciclando su un recordset utilizzando anche un contatore:

imposti min = 0
max = il recordcount

e ad ogni incremento del contatore assegni alla proprietà value il numero del contatore

[MMarzia]

Per visualizzare l'avanzamento di un'operazione, la proprietà Value viene progressivamente incrementata fino a un valore massimo definito nella proprietà Max. Il numero di blocchi di avanzamento visualizzati nei controlli è pertanto sempre pari al rapporto della proprietà Value con le proprietà Min e Max. Se, ad esempio, la proprietà Min è impostata su 1 e la proprietà Max è impostata su 100, impostando la proprietà Value su 50 il controllo visualizzerà il 50 percento dei blocchi di avanzamento,

forse così è più chiaro

[totti240282]

insomma vorrei un esempio dove posso trovarlo ????'' grazie per la vostra pazienza ciao

[ladyBlu]

Sub Form_Load()
    ProgressBar1.Min = 0
    ProgressBar1.Max = 0
End Sub

'sul click di un bottone chiamo una procedura 
'che esegue un ciclo su un recordset
Sub CiclaRecordset()
     ...
     ProgressBar1.Value = 0 
     Recordset.MoveFirst
     Do Until Recordset.EOF
        ProgressBar1.Value = ProgressBar1.Value + 1
        Recordset.MoveNext
     Loop
     ...
End Sub

[totti240282]

allora vediamo bene
Sub Form_Load()
ProgressBar1.Min = 0 SETTI LA PROGRSS BAR
ProgressBar1.Max = 0
End Sub

'sul click di un bottone chiamo una procedura
'che esegue un ciclo su un recordset
Sub CiclaRecordset()
...
ProgressBar1.Value = 0
Recordset.MoveFirst TI SPOSTI SUL PRIMO RECORD DEL DB
Do Until Recordset.EOF FINCHE NON ARRIVI ALLA FINE DEI RECORD
ProgressBar1.Value = ProgressBar1.Value + 1 INCREMENTI LA PROGRSS BAR DI 1 ALLORA A.MAX NON DOVRESTI METTERE 100?????
Recordset.MoveNext
Loop
...
End Sub

[MMarzia]

è vero ... max=100

altrimenti da errore :master: