Progress Bar

[luistojo]

Boas tardes =)

eu neste momento estou a fazer um projecto no vb6 e tou a usar progressbar's

tenho uma que faz como o load de qq coisa e o codigo e este

Private Sub Timer1_Timer()
If ProgressBar1 = Val(100) Then
Timer1.Enabled = False
Unload Me
menu.Show
Else
ProgressBar1 = Val(ProgressBar1) + Val(10)
End If
End Sub

mas so que nao consigo fazer um onde em vez de carregar, descarrega.

Tipo estar a barra cheia e ir esvaziando

Alguem me pode ajudar??

Obrigado

 

[Kayvlim]

Primeiro, ProgressBar1 = 100, e, no Timer, em vez de

ProgressBar1 = Val(ProgressBar1) + Val(10)

fazes

ProgressBar1 = Val(ProgressBar1) - Val(10)

No entanto, porque é que fazes Val(10)? Isso é redundante, Val(10) = 10. Porque é que não fazes

ProgressBar1 = Val(ProgressBar1) + 10

?

 

[luistojo]

a parte que disses.te do:

ProgressBar1 = Val(ProgressBar1) - Val(10)

ja eu tinha tentado:

Private Sub Timer1_Timer()
If ProgressBar1 = Val(100) Then
ProgressBar1 = Val(ProgressBar1) - 10
Timer1.Enabled = False
End
End If
End Sub

mas esse nao da nada aparece a barra vazia :S

 

[pmaster]

Não sei que se ajuda mas para mim é mais simples assim

ProgressBar1.Value -= 10

Vai retirando 10 valores à progress bar, ou + se quiseres.

 

[luistojo]

ele apenas esta a tirar uma barra nao todas :S

 

[luistojo]

Ja conseguir =D
meti:

If ProgressBar1 = Val(0) Then
Timer1.Enabled = False
End
Else
ProgressBar1 = Val(ProgressBar1) - 10
End If