E aí gente,

Tô querendo colocar no meu sistema uma barra que indique o progresso de uma tarefa que está sendo realizada pelo computador.

Sei que deve ser utilizado o Progressbar.

Mas o que fazer e como fazer?

 

Aguardo vcs.

Um exemplo bem simples:

 

Private Sub Command1_Click()
Dim i As Long
ProgressBar1.Min = 0
ProgressBar1.Max = 100000

For i = 0 To 100000
    DoEvents
    ProgressBar1.Value = i
Next i

End Sub

 

qualquer dúvida é só postar!

 

at+

Ola colega..

vc tem algum tipo progressbar com porcentagem, no meio da barra

Ex: 1% a 100%

 

Obrigado

Nilton

 

coloque um label logo abaixo do progressbar chamado lblperc, e mude seu codigo para

 

    Dim i As Long
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100000
    For i = 0 To 100000
        DoEvents
        ProgressBar1.Value = i
        Me.lblPerc.Caption = CInt((i / 1000)) & " %"
    Next i

deu certo valeu

Grato

Nilton