[VB6] ProgressBar

[Alessandro2110]

ciao a tutti

qualcuno di voi sa dirmi come si usa una progress bar?

grazie mille....

[LMondi]

Un esempio molto valido l'ha postato xegallo (Moderatore) qualche giorno fà, che qui riporto dopo averlo ringraziato:

Option Explicit
Dim FSO As FileSystemObject
Dim f As File
Dim dSorg As Folder
'-----------------------
Private Sub Form_Load()
    ProgressBar1.min = 0
    ProgressBar1.max = 100
    Set FSO = New FileSystemObject
End Sub
'-----------------------
Private Sub Command1_Click()
    Dim dirLenght As Long
    Dim fileLenght As Long
    Dim bytesscritti As Long

    Set dSorg = FSO.GetFolder("D:\DATI1")

    dirLenght = dSorg.Size

    For Each f In dSorg.Files
        fileLenght = f.Size
        f.Copy "D:\"
        ProgressBar1.value = Percent(0, dirLenght, bytesscritti + fileLenght)
        bytesscritti = bytesscritti + fileLenght
        ProgressBar1.Refresh
    Next f

End Sub
'--------------------------
Function Percent(min As Long, max As Long, value As Long) As Long
    '100 : x = dirlenght : bytes
     Percent = value * 100 \ max
End Function

PS. ricorda di attivare il riferimento a Microsoft Scripting Runtime.

[maurocoviello]

In una progressBar durante l'avanzamento si può vedere una barra continua invece di tanti rettangolini?

[LMondi]

Ciao maurocoviello,
la proprietà che devi settare è Scrolling=1

[maurocoviello]

Grazie Mille!!!!!!

[LMondi]

Se cerchi un tutorial sulla progressBar con un esempio funzionante lo trovi qui:
http://www.masterdrive.it/default.asp?modulo=Community
Ciao.