PROGRESSBAR

USUARIO.EXCLUIDOS 16/03/2005 15:54:56
#73254
Como faço para que a cada 1 segundo acrescente 1 na progressBar.

Grato
USUARIO.EXCLUIDOS 16/03/2005 16:36:53
#73266
private sub timer1_timer()
progressbar.value = progressbar.value + 1 'não tenho certeza se é isso, mas é parecido
end sub

private sub form_load()
timer1.interval = 1000
End sub
ARCE 17/03/2005 18:12:55
#73461
é mais ou menos q o TAVINHU disse vc vai ter ue colocar um timer e ir somando 1 a cada 1 segundo

podendo ser assim

progressbar.value = progressbar.value + 1
FELIPEA 17/03/2005 20:12:35
#73476
Tem q colocar o ERROR HANDLER, pois quando o progressbar passar do vlor maximo vai dar o erro ( a ideia é colocar o código pra desabilitar o timer ), então siga o exemplo:

Private Sub Timer1_Timer()
    On Error Goto Err_Handler
    
    Progressbar.value = Progressbar.value + 1 
    Exit Sub
Err_Handler:
    Timer1.Enabled = False
End sub



Ou faz um If que verifique quando o valor atingir o maximo:

If ProgressBar1.Value = ProgressBar1.Max then Timer1.Enabled = False


Não sei direito, veja aí ;)
USUARIO.EXCLUIDOS 18/03/2005 00:25:06
#73497
Bom ... vc pode faer assim..!!!

Coloca um timer 
  
Timer1.Enabled = True
Timer1.Interval = 5
'"""""""""""""""""""""""""""""
ai dentro do timer vc coloca assim:

pb.Min = "0"
pb.Max = "100"

pb.Value = pb.Value + "1"
If pb.Value = "100" Then
   pb.Value = "100"
          MsgBox "heheheh!"
   pb.Value = "0"

Timer1.Enabled = False
Command1.Enabled = True


Espero ter ajudado...
RAMON 19/03/2005 15:44:28
#73739
Mas pra que vc quer fazer isso ja que cada computador é diferente um do outro o objetivo da progressbar é dar ao usuario a nocao de como ha o andamento do carregamento de um arquivo ou andamento de algo e não o tempo

Imagine que vc excute isto num 486 demorara mais do que em um pentium 4
SHEEPJE 19/03/2005 16:40:34
#73751 Resposta escolhida
Dim i As Integer = 0
ProgressBar1.Maximun=1000

For i = 0 to ProgresaBar1.Maximun
ProgressBar1.Valvule = i
Button.Text = "&Executar -" & Convert.Tostring(i)
Me.Update
Next

Ve se esse funciona!!!!!!!!!!
FELIPEA 19/03/2005 16:59:54
#73755
SHEEPJE:
Maximun? Valvule?
Tópico encerrado , respostas não são mais permitidas
Voltar