EXEMPLE DE PROGRESSBAR

Commentaire de doudouet le 05/08/2006 19:22:07

bon au lieu de vous charier trouverz de bon arguments pour critiquer méme moi qui est hyper débutnat j'ai vu de grosses fautes .

1) méme si cette source à vocation d'aprendre elle ne sert juste qu'a faire conaitre la propriété value de la progress bar. ( sé se que je cherché mé jorais pu lavoir nimporte ou ailleur )

2) la contruction du code est vraiment trés mauvaise et méme si au niveux des perf c'est insignifiant il faut quand méme faire gaffe sa peut induire en erreur les grand débutants.



Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = ProgressBar1 + 50
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = ProgressBar1.Value + 20
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
End If
End If
End If
End Sub
regarder les 2 dernier if sont en trop puisque que vu la contruction du code equation sera toujours bonne
30 + 50 =80
80+20 =10

Private Sub Timer2_Timer()
If ProgressBar1.Value = ProgressBar1.Max Then
SECONDS_TO_WAIT = "5"
ORIGINAL_TIME = DateTime.Time
End
End If
End Sub

le mieus sé de suprimer le timer 2  é de faire ainsi


Private Sub Timer1_Timer()
   ProgressBar1.Value = ProgressBar1.Value + 10
   If ProgressBar1.Value = 30 Then
   ProgressBar1.Value = 100
   Timer1.Enabled = False
   SECONDS_TO_WAIT = "5"
   ORIGINAL_TIME = DateTime.Time
end if
End
end sub